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DECLARATION UNDER 37 C.F.R. S1.131 

I, Patrick J. Coyne, state that I am one of the named applicants of the 
above-identified application and am one of the co-inventors of the subject matter 
described and claimed therein. 

1 . I am the sole inventor of the invention of claims 1-3, 7-1 1 , 23-25, and 29- 
33 of the above-identified application, as reflected in the Reply filed with this 
Declaration. 

2. I completed the invention of claims 1-3, 7-11, 23-25, and 29-33 of the 
above-identified application, as reflected in the Reply filed with this Declaration, in the 
U.S. at least as early as November 3, 1999. 

3. In accordance with 37 C.F.R. §1.131 and M.P.E.P. §715.07, attached 
hereto is a copy of a synopsis of software embodying and memorializing that the 
invention of claims 1-3, 7-10, 23-25, and 29-32 of the above-identified application, as 



Attorney Docket No. 0005.0005 
Application No.: 10/661,612 



reflected in the Reply filed with this Declaration, was completed in the U.S. at least as 
early as November 3, 1999. 

I declare further that all statements made herein of my own knowledge are true 
and that all statements made on information and believe are believed to be true; and 
further, that the statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 
1001 of Title of the United States Code, and that such willful false statements may 
jeopardize the validity of the application or any patents issuing thereon. 




Patrick J. Coyi 
Inventor 
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EXHIBIT TO RULE 131 DECLARATION 

By Patrick J. Coyne 
June 24, 2008 



Proprietary & Confidential 



TRAQCS 

Project Management 
Database 



Notes Database Synopsis 
(November 3, 1999) 



Patrick J. Coyne 
805 East Capitol Street, S.E. 
Washington, D.C. 20003 
(202) 547-1776 (phone) 
(202) 256-7792 (mobile) 



Lotus Notes Database Synopsis - Generated at 05:36:17 PM on 1 1/03/1999 



Database Information 

Server: 

Path: 

Title: 

Date Created: 

Last Data Modification: 

Last Non-Data Modification: 

Categories: 

Template Name: 

Inherit Design From Template: 

Text Compression: 

Full-Text Indexing: 

Local Encryption Key Name: 

Form Information 

Name: 

Alias: 
Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 
Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



CN=CSRSLN01/O=CSRS 
IP\IPAgenda2_5;nsf 
IP Agenda Docket V2.5.5 
03/18/1999 11:50:32 AM 
11/03/1999 04:38:52 PM 
09/02/1999 04:50:22 PM 
[None Assigned] 
[Not Assigned] 
IPAgenda254T 
Disabled 
Disabled 
[Not Assigned] 



Archive Profile 

ArchiveProfile 

Archive Profile 

03/18/1999 02:21:20 PM 

[Not Assigned] 

Document 

"Archive Profile" 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ArchiveExpired 

Keywords 
Comma 
Comma 
[Not Assigned] 
Editable 
Check Boxes 

Archive Completed Documents | 

Yes 

No 

Disabled 

No 

"Yes" 
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Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allowable Keywords: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi- Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

ExpiredLife 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

7 

@lf(ExpiredLife < 0; 
@Failure("Number cannot be 
negative."); ©Success); 
No 

ArchiveLog 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Check Boxes 

Generate an Archive Log each 
time an archive occurs | Yes 
No 

Disabled 
No 
"Yes" 
No 

IncludeDoclinks 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Check Boxes 

Include document links | Yes 
No 

Disabled 

No 

No 

ProfileEditors 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 
Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE "Isconst.lss" 
Dim s As NotesSession 
Dim w As NotesUIWorkspace 
Dim db As NotesDatabase 
Dim existingdb As NotesDatabase 
Dim archivedb As NotesDatabase 
Dim view As NotesView 
Dim note As NotesDocument 
Dim profile As NotesDocument 
Dim archivedoc As NotesDocument 
Dim doc As NotesUIDocument 
Dim DocWasSaved As Integer 
Dim DoNotClose As Variant 
Dim ExistingServer As String 
Dim Existing Path As String 
Sub Initialize 
End Sub 

Sub ProcessExistingArchiveDB 
%REM 

an existing archive already exists and the user has choosen to create a new one 



No 

ArchiveServer 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ArchivePath 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Close 

@PostedCommand([Fil 
eCloseWindow]); 
Save Profile 

@PostedCommand([FileSave]); 
Instructions 

@DialogBox( M (Archiveln 
structions)"; [AutoVertFit] : 
[AutoHorzFit]); 
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this function gets called on one of two occasions 

either the document has a value in the tmpArchivePath field 

or the user entered a server and path that has an existing database 

we need to handle both cases 

%END REM 

End Sub 

Sub ProcessNonExistingArchiveDB 
On Error Goto ProcessError 
On Error 4005 Goto DbCreateError 

'render the dialog box to get the location of the archive database 
If (w.DialogBox("(ArchiveProfileDlg)Mrue,True f "Specify New Location")) Then 
'see if the archive database exists 

Set archivedb = New NotesDatabase(note.ArchiveServer(0) t note.ArchivePath(0)) 
If (archivedb.lsOpen) Then 

Msgbox "Database already exists. Enter a new location" 

ProcessNonExistingArchiveDB 
Else 

Set archivedb = db.GreateCopy(note.ArchiveServer(0),note.ArchivePath(0)) 
archivedb.Title = db.Title & " (Archive)" 
End If 

Call doc.Reload 
Call doc.Refresh 
Else 

note.ArchiveServer = "" 

note.ArchivePath = "" 
End If 
Exit Sub 
DbCreateError: 

Select Case Msgbox("Error creating archive database. The server may be down or you 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 
cancel.",36,"Error") 

Case 6 

ProcessNonExistingArchiveDb 

End Select 

Exit Sub 
ProcessError: 

Msgbox Error & " - (ProcessNonExistingArchiveDB)" 

Exit Sub 
End Sub 

Sub ProcessArchiveDbExists 

'this function gets called if a database already exists in the tmpArchiveServer field 
'render the dialog box to get the location of the archive database 
On Error 4005 Goto DbCreateError 

If (w.DialogBox("(ProcessExistingDbDlg)" 1 True,True,"Specify New Location")) Then 
On Error Resume Next 
'see if the archive database exists 

Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0)) 
If (archivedb.lsOpen) Then 

Msgbox "Database already exists. Enter a new location" 

ProcessArchiveDbExists 
Else 
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Call CreateNewArchiveDB 
archivedb.Title = db.Title & " (Archive)" 
End If 

Call doc.reload 
Call doc.refresh 
End If 
Exit Sub 
DbCreateError: 

Select Case Msgbox("Error creating archive database. The server may be down or you 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 

Case6 cancel.».36,"ErroO 

ProcessNonExistingArchiveDb 
End Select 
Exit Sub 
End Sub 

Sub CreateNewArchiveDB 

On Error 4005 Goto DbCreateError 

On Error Goto ProcessError 
'first, create the archive database 

Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0)) 
if the profile says to copy new documents, then copy them now 
If (note.CopyOptions(O) = "1 ") Then 
Set allDocs = existingdb.AIIDocuments 
For i = 1 To allDocs.Count 

Set archivedoc = allDocs.GetNthDocument(i) 
Call archivedoc.CopyToDatabase(archivedb) 
Next 
End If 

"if the profile says we should delete the original archive database, then remove it 
If (note.DeleteOptions(O) = "1") Then Call existingdb.Remove 
Exit Sub 

DbCreateError: 

Select Case MsgboxfError creating archive database. The server may be down or you 

don't have access to create new 
databases on the server. Click 
Yes to try a different location 
now or No to 

Cases cancel.",36,»Error) 

ProcessNonExistingArchiveDb 
End Select 
Exit Sub 
ProcessError: 

Msgbox Error & " - (ProcessNonExistingArchiveDB)" 
Exit Sub 
End Sub 
(Form) Archive Profile 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 

If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub 
ltemList = profile. Items 
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Forall n In ItemList 

profile. Removeltem(n. Name) 
End Forall 

note.CopyAllltems profile 
profile.SaveOptions = "1 " 
profile.save True, True 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 
DocWasSaved = True 
DoNotClose = False 

If Not(profile Is Nothing) Then note.SaveOptions = "0" 

If (note.ArchiveServer(0) = "") Then Msgbox "You will need to specify a server for the 

Archive Database before you 
can archive documents.", 16 

If (note.ArchivePath(0)="") Then Msgbox "You will need to specify a path to the Archive 

Database before you can 
archive documents.",16 

source.Reload 

source.RefreshHideFormulas 
End Sub 

Sub Postopen(Source As Notesuidocument) 
'initialize global variables 
Set note = source.Document 
Set w = New NotesUIWorkspace 
Set s = New NotesSession 
Set db = s.CurrentDatabase 
Set view = db.GetViewf Archiving") 
Set doc = source 

'turn off auto reload to make processing faster 

source.AutoReload = False 

? if this is not a new doc, we don't need to continue 

If Not (source. IsNewDoc) Then Exit Sub 

•get the existing profile 

key = "Archive Profile" 

Set profile = view.GetDocumentByKey(key,False) 
If profile Is Nothing Then 

'an existing profile was not found 

note.ProtectFromArchive = 1 

note.ExcludeFromView = "D" 

note.From = "Archiving" 

note.Subject = "Archive Profile" 

note.Categories = "(Archive)" 

Call note.ReplaceltemValue("_Viewlcon", 11) 

source.reload 
Else 

'copy the profile fields to this document 
ItemList = note .Items 
Forall n In ItemList 

note.Removeltem(n.Name) 
End Forall 

profile.CopyAIIItems note 
source.Reload 

If source.EditMode Then source.Refresh 
End If 



DocWasSaved = False 
End Sub 

Name: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Shared Field Reference: 



ClientForm 

04/20/1999 02:06:09 PM 
[Not Assigned] 
Document 

@lf(@lsNewDoc; "New Client"; 
ClientJMame + " [" + Client_No 

+ "D; 

Yes 

Yes 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

SendTo 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DocType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Client Form" 
No 

ClientDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 
No 

PropClose 



Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 

Dr.|Dr. 

Prof.|Prof. 

Mr.|Mr. 

Ms.|Ms. 

Miss|Miss 

Mrs.|Mrs. 

No 

Disabled 

No 

No 

FirstName 

Text 

First name(s) and nicknames - 

e.g. John; Johnny 

Editable 

No 

Disabled 

Yes 

No 

Middlelnitial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 

Yes 

No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 

Yes 

No 

Suffix 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 
Jr. | Jr. 
Sr.|Sr. . 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



III 

No 

Disabled 

No 

No 

StreetAddress 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

City 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

State 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ZIP 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Country 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientJMame 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

CIient_No 



Datatype: 

Help Description: 

Field Type: 

Keyword User interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Graphic Button 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Keywords 

[Not Assigned] 

Editable 

Standard 

Yes 

10020 

16980 

26290 

29610 

38100 

41920 

42280 

No 

Disabled 

No 

No 

ContactJMame 

Names 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Trim(Title + " " + FirstName + 
,,W + Middlelnitial + " " + 
LastName + " " + Suffix); 
No 

Contact_J\lame_1 
Text 

Comma, Semicolon 
Semicolon 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

@lf(Contact_Name = ""; 
@Trim(Title + " " + FirstName + 
" " + Middlelnitial + " " + 
LastName + " " + Suffix); 
Contact_Name); 
No 

Contact_Address 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != ""; ©NewLine + City 
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Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Graphic Button 

Formula: 



Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 



+ @lf(State != & City != ""; "; 
"") + State; "")); 
@Trim(BusinessAddress); 
Yes 

Contact_Address_1 
Text 

[Not Assigned] 
Computed for display 
No 

Disabled 
No 

@lf(Contact_Address = ""; 
@Trim(StreetAddress + 
@lf(City != ""; @NewLine + City 
+ @lf(State != & City != ""; "; 
n ") + State + " " + ZIP + " " + 
©NewLine + Country; WM )); 
Contact_Address); 
No 



@DialogBox("(Business 
AddressHelper)"; [AutoVertFit] : 
[AutoHorzFit] : [NoNewFields]; 
"Business Address"); 
LOB 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

Advertising 

Computer-Related Equipment 
and/or Services 
Consumer Products 
Defense 
Electronics 

Environmental Remediation 
Natural Resources 
Software 
No 

Disabled 

No 

No 

ProdJJne 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 
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Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Advertising Agency Services 
Trade Association Services 
Professional Association 
Services 

Defense Contracting 
Display Devices 
Electromagnetic Retarders 
Engine Brakes 
Engineering Services 
Exhaust Brakes 
Publications 
Sporting Goods 
No 

Disabled 

No 

No 

Referred_By 

Names 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Orig_Atty 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BilLAtty 

Names 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

FeeBasis 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

Percentage Discount 
Fee Cap 
Fixed Fee 

Non-Standard Hourly Rate 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 

Formula: 



Action: 

Formula: 
Action: 



Standard Hourly 
No 

Disabled 

No 

No 

NonStandardFee 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

10% Discount 
No 

Disabled 

No 

No 

ReiateClient 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

33030 

35720 

40310 

No 

Disabled 

No 

No 

Document_Statistics 

Section 
Comma 

Document Statistics 

Editable 

No 

Disabled 

No 

No 

Statusjl 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

M 0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
New Matter 
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Formula: @Command([Compose]; 

"Matter"); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
Use "UpdateFields" 

' ClientName and ClientNo, MatterName and MatterNo declared in the script lib for 

updateFields 

Public xContactName$ 
Public xContactAddress$ 
Public xLOB$ 
Public xProdLine$ 
Public xReferredBy$ 
Public xOrigAtty$ 
Public xBil!Atty$ 
Public xFeeBasis$ 
Public xNonStdFee$ 
Public xRelateClient$ 
(Form) ClientForm 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextfPropClose", "Open") 

End If 

xClientName$=uidoc.FieldGetText("Client_Name") 
xC!ientNo$=uidoc.FieldGetText("Client_No") 
xContactName$=uidoc.FieldGetText("Contact_Name M ) 
xContactAddress$=uidoc.FieldGetText(' , Contact_Address ,, ) 
xLOB$=uidoc.FieldGetText("LOB") 
xProdLine$=uidoc.FieldGetText("Prod_Line") 
xReferredBy$=uidoc.FieldGetText("Referred_By") 
xOrigAtty$=uidoc.FieldGetText("Orig - Atty") 
xBillAtty$=uidoc.FieldGetText("BilLAtty") 
xFeeBasis=uidoc.FieldGetText("FeeBasis") 
xNonStdFee$=uidoc.FieldGetText("NonStandardFee") 
xRelatedClient$=uidoc.FieldGetText( ,, RelateClient") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextC'PropClose", "Open") 



End If 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesU I Workspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.FieldGetText("PropClose") 

If PropClose$<>"Closed" Then 

Ok%=Messagebox( M You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!" 1 0+48+0+0, ,, ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End If 
End Sub 
(Field) Contact_Address 

Sub Entering(Source As Field) 
End Sub 

Sub Exiting(Source As Field) 
Dim Num As Variant 
Dim FieldName As String 
Dim Address As Variant 
FieldName = "B" 

Num=Evaluate(|@Elements(@Explode(@Trim(BusinessAddress);@Char(13)))|,doc) 
lfNum(0) = 1Then 

doc.BusinessAddress=Evaluate 
(|@Trim(@ReplaceSubstring(B 
usinessAddress;@NewLine;" 
"))|,doc) 

End If 

Address=doc.BusinessAddress(0) 

If Address=" H And (doc.OfficeStreetAddress(0)== ,,M And doc.OfficeCity(0)=" M And 

doc.OfficeState(0)= ,m )Then 

Exit Sub 
End If 

Call Parse.Address(Address, Num, FieldName) 
Call uidoc.refresh 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
, Dim Session As New NotesSession 
Set db=session.CunrentDatabase 

'Electronically route the info to the default mail group and cc the sender 

Dim doc As NotesDocument 

Dim view As NotesView 

Sender$= Session.CommonUserName 
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If uidoc. IsNewDoc Then 

Dim maildoc As NotesDocument 

Set maildoc = New NotesDocument(db) 

maildoc.Form-'MailNot" 

maildoc.Subject-'New Client Notice" 

Set view = db.GetView( "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

maildoc.SehdTo=doc.NewClientJRouting 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText "Please note that a new Cient has been added to the Intellectual 

Property Database." 

.AddNewLine 1 
End With 

'Add some comments and send the mail 
maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New 

Client Notification", Maildoc) 

If Flag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 
Forall Text In item. values 

Call rtibody .AppendText (text) 

Call rtibody. AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Click here to view the new client information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 
Else 

'Bailout if not a new document 

Ok%=Messagebox("No notification required, not a new client!",0+48+0+0, M ERROR") 
lfOk%=1 Then 

Exit Sub 
End If 
End If 
End Sub 
(Action) Save and Close 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 

'Define the the counterpart y variables for those x variables in postopen 
yClientName$=uidoc.FieldGetText("ClienrName") . ... 
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yClientNo$=uidoc.FieldGetText( ,, Client_No") 

yContactName$=uidoc.FieldGetText("Contact_Name") 

yContactAddress$=uidoc.FieldGetText( M Contact_Address") 

yLOB$=uidoc.FieldGetText("LOB") 

yProdLine$=uidocPieldGetText("ProdJJne") 

yReferredBy$=uidocPieldGetText("Referred_By") 

yOrigAtty$=uidoc.FieldGetText("Orig_Atty") 

yBillAtty$=uidoc.FieIdGetText( ,, BilLAtty ,, ) 

yFeeBasis$=uidoc.FieldGetText("FeeBasis") 

yNonStdFee$=uidoc.FieldGetText("NonStandardFee") 

yRelateClient$=uidoc.FieldGetText( M RelateClient") 

'Define some other variables 

yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropCIose field to Close so we can save the document ' 

Call uidoc.FieldSetText("PropClose", "Closed") 

'Check each field for change to compile the change history 

If xClientName$ <> yClientName$ Then 

NewHist$ = NewHist$ &Chr(010) + "Client name changed to: " + yClientName$ + " 

from " + xClientName$ 

update$='Y" 
End If 

If xClientNo$ <> yCIientNo$ Then 

NewHist$ = NewHist$ &Chr(010) + "Client number changed to: " + yClientNo$ + " from 

" + xClientNo$ 

update$='Y" 
End If 

If xContactName$ <> yContactName$ Then 

NewHist$ = NewHist$ &Chr(010) + "Contact name changed to: "+ yContactName$ + " 

from " + xContactName$ 

update$="Y" 
End If 

If xContactAddress$ <> yContactAddress$ Then 

NewHist$= NewHist$ &Chr(010) +"Contact address changed to: "+ yContactAddress$ 

+ " from " + xContactAddress$ 

update$='Y" 
End If 

lfxLOB$oyLOB$Then 

NewHist$= NewHist$ &Chr(010) + "Line of Business changed to: "+ yl_OB$ + " from " + 

xLOB$ 

update$='Y' 
End If 

If xProdLine$ <> yProdLine$ Then 

NewHist$= NewHist$ &Chr(010) + "Product Lne changed to: "+ yProdLine$ + " from " + 

xProdLine$ 

update$='Y" 
End If 

If xReferredBy$ <> yReferredBy$ Then 

NewHist$= NewHist$ &Chr(010) + "Referrel information changed to: "+ yReferredBy$ + 

" from " + xReferredBy$ 

update$='Y" 
End If 

If xOrigAtty$ <> yOrigAtty$ Then 
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NewHist$= NewHist$ &Chr(010) + "Originating Attorney changed. "+ yOrigAtty$ + 

"from " + xOrigAtty$ 

update$="Y" 
End If 

If xBillAtty$ <> yBilAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Billing Attorney changed to: "+ yAtty$ + " from " + 

xAtty$ 

update$="Y" 
End If 

If xFeeBasis$ <> yFeeBasis$ Then 

NewHist$= NewHist$ &Chr(010) + "Fee Basis changed to: "+ yFeeBasis$ + " from " + 

xFeeBasis$ 

update$="Y" 
End If 

If xNonStdFee$ <> yNonStdFee$ Then 

NewHist$= NewHist$ &Chr(010) + "Alternative changed to: "+ yNonStdFee$ + " from " 

+ xNonStdFee$ 

update$="Y" 
End If 

If xRelateClient$ <> yRelateClient$ Then 

NewHist$= NewHist$ &Chr(010) + "Related To information changed: "+ yRelateClient$ 

+ " from " + xRelateClient$ 

update$="Y" 
End If 

'Append the new changes to the History 
If update$='Y" Then 

If uidoc.lsNewDoc Then 

Call uidoc.FieldSetTextfStatus_1", "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by " + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText C'History", NewHist$ &Chr(010) +" 



&Chr(010) + yhist$) 

End If 
End If 

'Save and close the document 
Call uidoc.Save 
'Run Sub to update children 
If Not uidoc.lsNewDoc Then 

Call SetFields(uidoc.document) 
End If 

Call uidoc.Close 
End Sub 



Name: Event 

Last Modification: 07/28/1 999 1 0:03:25 AM 

Comment: [Not Assigned] 

Type: Response to Response 
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Window Title Formula: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 



@lf(@lsNewDoc; "New Event"; 

"Event - " + Event); 

Yes 

Yes 

No 

No 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ClientDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ProjectDocID; 

@GetDocFieId($Ref; 

"ProjectDocID")); 

No 

EventDocID 

Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@Docu m e ntU n iqu e I D) ; 
No 

Event 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(Project = "Prosecution: 
Copyright"; CopyrightEvent; 
Project = "Prosecution: Patent"; 
PatentEvent; Project = 
"Prosecution: Trademark"; 
TrademarkEvent; Project = 
"Counseling : & Advice"; 
CounselEvent; Project = 
"Litigation"; LitigationEvent; 
Project = "Other"; OtherEvent; 

""); 

No 
Sn 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

seriaLnumber 
No 

PropClose 
description_all 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(Project = "Prosecution: 

Patent"; desc_patent; Project = 

"Prosecution: Trademark"; 

desc_tm; info_other); 

No 

Ref 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
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Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: . 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Maiiing/ln Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/lh Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator- 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

@Text(@DocumentUniquelD); 
No 

FormName 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Event" 
No 

TEArchive 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

clients_billing 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref; 

"clients_billing")); 

No 

inventor 

Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor; 

@GetDocField($Ref; 

"inventor")); 

No 

PComments 

Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 
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Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



@lf(@lsNewDoc; PComments; 

@GetDocField($Ref; 

"PComments")); 

No 

ClientJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientJMame; 

@GetDocField(ClientDoc!D; 

"ClientJMame")); 

No 

ClientJMo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientJMo; 

@GetDocField(ClientDoclD; 

"Client_No")); 

No 

MatterJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMame; 

@GetDocField(MatterDoclD; 

"MatterJMame")); 

No 

MatterJMo 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMo; 

@GetDocField(MatterDoclD; 

"MatterJMo")); 

No 

Project 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
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Update Requires Editor Access: 
Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: * 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

@lf(@lsNewDoc; Project; 
@GetDocField($Ref; "Project")); 
No 

cre_date 

cre_date_d 

Time 

11/03/1999 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

cre_date 
No 

EventDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@lf(EventDate = 
@Failiire("You must enter an 
Event Date for this Event."); 
©Success); 
No 

CopyrightEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; "" : ""; 
"(Keywords)"; 3); 
No 

Disabled 

No 

No 

PatentEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; "" : ""; 
"(Keywords)"; 4); 
No 

Disabled 

No 

No 

TrademarkEvent 

Keywords 
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Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn( ,m ; " 
"(Keywords)"; 5); 
No 

Disabled 

No 

No 

CounselEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; " 
"(Keywords)"; 6); 
No 

Disabled 

No 

No 

LitigationEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn( H "; " 
"(Keywords)"; 7); 
No 

Disabled 

No 

No 

OtherEvent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; " 
"(Keywords)"; 8); 
No 

Disabled 

No 

No 

PDescrip 
resp_atty 
resp_atty_1 

Text 

[Not Assigned] 

Computed 

No 

Disabled 



Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

resp_atty 
No 

desc_tm 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; 
"(Keywords)"; 9); 
No 

Disabled 

No 

No 

desc_patent 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; "" 
"(Keywords)"; 10); 
No 

Disabled 

No 

No 

info_other 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

lit_route_ev 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Next_Action 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 
No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Maiiing/ln Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



No 

NextActionBy 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Action_Date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

DateComplete 

Time 

11/03/1999 05:36:17 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = "-- Select ~"; 
@Failure("Please designate a 
priority."); ©Success); 
No 

Status 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(TEArchive = "no" | 
TEArchive = ""; "Open"; 
"Completed"); 
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Is Scripted: 
Field: 

Datatype: 
Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 



No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

trakjd 

Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

@Unique 
No 

Summary 

Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

n n 

No 

Untitled_Section 

Section 
Comma 

Event Retirement 

Computed 

No 

Disabled 
No 

@lf(resp_atty != ""; resp_atty; 

"") : "[MasterEditor]"; 

No 

ProtectFrom Archive 

Keywords 
[Not Assigned] 
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Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: . 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 



Editable 

Radio Buttons 

No|0 

Yes|1 

No 

Disabled 
No 

HQ,. 

No 

TEDateComplete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Retire_By 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(TEDateComplete != ""; 
@Name([CN]; @UserName); 

•'"); 

No 

UnHideEV 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

ClosingEV 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
M no" 
No 

Status_1 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 
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Formula: 



Action: 
Formula: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE "Isconst.lss" 
Use "UpdateFields" 
Public xCopyright$ 
Public xPatent$ 
Public xTrademark$ 
Public xCounsel$ 
Public xLitigation$ 
Public xOther$ 
Public xEventDate 
Public xDes$ 
Public xAtty$ 
Public xDescTm$ 
Public xDescPat$ 
Public xOtherlnfo$ 
Public xLitRouteEv$ 
(Form) Event 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextCPropClose", "Open") 

End If 

xCopyright$=uidoc.FieldGetText( n CopyrightEvent") 
xPatent$=uidoc.FieldGetText("PatentEvent") 
xTrademark$=uidoc.FieldGetTextCTrademarkEvent") 
xCounsel$=uidoc.FieldGetText("CounselEvent") 
xLitigation$=uidoc.FieldGetText("LitigationEvent M ) 
xOther$=uidoc.FieldGetText( M OtherEvent") 
xEventDate=uidoc.FieIdGetTextC'EventDate") 
xDes$=uidoc.FieldGetText("PDescrip") 
xAtty$=uidocPieIdGetText('Yesp_atty") 
xDescTm$=uidocPieldGetText("descJm") 
xDescPat$=uidocPieldGetText("desc_patent") 
xOtherlnfo$=uidoc.FieldGetText( M info_other ,, ) 
xLitRouteEv$=uidoc.FieldGetTexl("lit_route_ev") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 



FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
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Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose", "Open") 
End If 
End Sub 

Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 
End Sub 

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 

Continue As Variant) 

End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.FieldGetText("PropClose ,, ) 

If PropClose$<>"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes !",0+48+0+0 ( "ERROR") 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 

Sub Postrecalc(Source As Notesuidocument) 
End Sub 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 
End Sub 

(Button) Close and Archive Event 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Define some variables 
ActionHist$=uidoc.FieldGetText("Archive") 
OldAction$=uidoc.FieldGetText("Next_Action") 
Due$=uidoc.FieldGetText("DateDue") 
Complete$=uidoc.FieldGetText("DateComplete fl ) 
TraklD$=uidoc.FieldGetText("trakjd ,f ) 
Sum$=uidoc.FieldGetText("Summary") 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + 'Tracking ID: " + TraklD$ 

&Chr(010) +"Due on: " + Due$ 
&Chr(010) + "Closed on: " + 
Completes &Chr(010) + Sum$ 
&Chr(010)+ "Certified closed 
by " + 
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* 



Session.CommonUserName 

'Append the closed action to the Archive 
lfOldAction$=""Then 

Ok%=Messagebox("There is no Action to close!",0+48+0+0,"ERROR") 
If Ok%=1 Then 

Exit Sub 
End If 
End If 

If Completes^'" Then 

Ok%= MessageboxfYou must specify a completion date!",0+48+0+0, "ERROR") 

lfOk%=1 Then 
Exit Sub 

End If 
End If 

lfSum$="" Then 

Ok%=Messagebox("You must provide a summary of action 

taken!",0+48+0+0,"ERROR") 

lfOk%=1 Then 

Exit Sub 
End If 
End If 

'Certify that the action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed.",4+32+0+0 t 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText ("Archive", NewActionHist$ &Chr(010) +" 



&Chr(010) + ActionHist$) 

' Clear the subform for a new entry 

Call uidocFieldSetTextCNext^Action","") 

Call uidoc.FieldSetTextC'DateDue","") 

Call uidoc.FieldSetText("Priority","") 

Call uidoc.FieldSetText("Hours","") 

Call uidoc.FieldSetText("NextActionBy","") 

Call uidoc.FieldSetText("DateComplete","") 

Call uidoc.FieldSetText("Status","On Going") 

Call uidoc.FieldSetTextCtrakjd","") 

Call uidoc.FieldSetTextC'Summary","") 
End If 
End Sub 
(Button) Retire Event 

'%INCLUDE "Isconst.lss" 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NoteslllWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
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Dim view As NotesView 

Dim yesOrNo As Integer 

Dim OkCancel As Integer 

'Make sure user wants to retire the event 

yesOrNo=Msgbox("Are you sure you want to retire this Event?", MB_YESNO + 

MBICONQUESTION + 
MBJDEFBUTTON2 + 
MB_APPLMODEL, "Retire 
Event?") 

If yesOrNo=IDNO Then 

Exit Sub 
End If 

'Unhide the closure info fields and set a field so I know they are retiring event 
Call uidoc.FieldSetText("UnHideEV", "yes") 
Call uidoc.RefreshHideFormulas 
Call uidoc.Refresh 

Call uidocPieldSetText("ClosingEV", "yes") 

'Get some data from the base document for the email and set the variables 
yAtty $=u idoc. FieldG etText("resp_atty") 
Client$=uidocPieldGetText("ClientJslame") 
Matter$=uidoc.FieldGetText("Matter_Name") 
MatterNo$=uidoc.FieldGetText("Matter_No") 

People$=uidocPieldGetText("lit_route_e\0 
Sender$=Session.CommonUserName 
Project$=uidoc.FieldGetTextC'Project") 
Select Case Project$ 
Case "Prosecution: Patent" 

Ref$=uidoc.FieldGetText("desc_patent") 
Case "Prosecution: Trademark" 

Ref$=uidoc.FieldGetText("descJm") 
Case Else 

Ref$=uidocPieldGetText("info_other") 
End Select 

'Get the retirement data entered by the user 
RetireBy$=session.CommonUserName 
RetireDate=uidocPieldGetTextCTEDateComplete") 
'Do some field validation on said data 
If Len(RetireDate) < 1 Then 

Goto SlingError 
End If 

'Electronically route the info to the default profile 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 

'Set the default routing (SendTo field) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Project$="Prosecution: Patent" Or Project$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Project$ 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.PatentJRouting 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TM_Routing 



Case "Presecution: Copyright" 

miaidoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Counselling and Advice" 

maiIdoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Other" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev ,, ) 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject="Event Retirement Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTabl 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab2 

.AppendText "Matter - " + Matter$ + " p + MatterNo$ + "J" 
.AddNewLine 2 

.AppendText "Please note that an Event pertaining to the " + Projects + " project for 

the referenced Client and Matter 
has been retired." 

.AddNewLine 1 

.AppendText 'The Event pertained to: " + Ref$ + "." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "Event 

Retirement",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody .AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Event information >" 

.AppendDocLinkuidoc.document,"" 
. .AddNewLine 2 
End With 
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maildoc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
Goto SaveAndClose 
Else 

Goto SaveAndClose 
End If 'dialogbox for message to default group 
SlingError: 

Ok%=Messagebox("Piease provide a retirement date and press the 'Retire Event' 

Button.",0+32+0+0,"Retire 
Event") 

If Ok%=1 Then 

Exit Sub 
End If 

SaveAndClose: 'Save and close the document for the last time. Do it here to avoid pressing 

the save/close button 

'Close it out first 

Messagebox "This Event has been retired and will now be removed from the Active 

views." ,0+64+0+0,"Retirement 
Successful" 

Call uidoc.FieldSetText("TEArchive", "yes") 

Call uidoc.FieldSetText("PropClose", "Closed") 'Set the PropClose field to 'Closed' so we 

can save the document 
'Do the histroy, define the the counterpart y variables for those x variables in postopen 
yCopyright$=uidoc.FieldGetText("CopyrightEvent") 
yPatent$=uidoc.FieldGetText("PatentEvent") 
yTrademark$=uidoc.FieldGetText('TrademarkEvent") 
yCounsel$=uidoc.FieldGetText("CounselEvent") 
yLitigatipn$=uidoc.FieldGetText("LitigationEvent") 
yOther$=uidoc.FieldGetText("OtherEvent") 
yEventDate=uidoc.FieldGetText("EventDate") 
yDes$=uidoc.FieIdGetText("PDescrip") 
yAtty$=uidoc.FieldGetText("resp_atty") 
yDescTm$=uidoc.FieldGetText("descJm") 
yDescPat$=uidoc.FieldGetText("desc_patent") 
yOtherlnfo$=uidoc.FieldGetText("info_other") 
yLitRouteEv$=uidoc.FieldGetText("lit_route - _ev ,, ) 
TEDateComplete=uidoc.FieIdGetText("TEDateComplete") 
'Define some other variables needed for the history 
yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xCopyright$ <> yCopyright$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: " + yCopyright$ + " from " + 

xCopyright$ 

update$='Y" 
End If 

If xPatent$ <> yPatent$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: " + yPatent$ + " from " + 

xPatent$ 

update$="Y" 
End If t 
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If xTrademark$ <> yTrademark$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: "+ yTrademark$ + " from " + 

xTrademark$ 

update$='Y" 
End If 

If xCounsel$ <> yCounsel$ Then 

NewHist$= NewHist$ &Chr(010) +"Event changed to: "+ yCounsel$ + " from " + 

xCounsel$ 

update$='Y" 
End If 

If xLitigation$ <> yLitigation$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yLitigation$ + " from " + 

xLitigation$ 

update$='Y" 
End If 

If xOther$ <> yOther$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yOther$ + " from " + xOther$ 

update$='Y" 
End If 

If xEventDate <> yEventDate Then 

NewHist$= NewHist$ &Chr(010) + "Event Date changed to: "+ Format(yEventDate, 

"Short Date") + " from " + 
Format(xEventDate, "Short 
Date") . 

update$="Y" 
End If 

If xdes$ <> ydes$ Then 

NewHist$= NewHist$ &Chr(010) + 'The Event Description was changed. " 

update$='Y" 
End If 

lfxAtty$oyAtty$Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney was changed to: "+ yAtty$ + 

" from " + xAtty$ 

update$='Y" 
End If 

If xDescTm$oyDescTM$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescTM$ 

+" from "+xDescTM$ 

update$="Y" 
End If 

If xDescPat$<>yDescPat$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescPat$ 

+" from "+xDescPat$ 

update$="Y" 
End If 

If xOtherlnfo$<>yOtherlnfo$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yOtherlnfo$ 

+" from "+xOtherlnfo$ 

update$="Y" 
End If 

If xLitRouteEv$oyLitRouteEv$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing list was changed to: "+yl_itRouteEv$ +" 

from "+xLitRouteEv$ 

update$='Y" 
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End If 

'if event is being closed write out to history 

If TEDateComplete <> M " Then 

NewHist$ = NewHist$ &Chr(010) + "The Event was Retired on " + 

Format(TEDateComplete, 
"Short Date") 

update$='Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 
v Call uidoc.FieldSetText("Status J "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" 



"&Chr(010) 

+ yhist$) 

End If 

'Set some field values to retire the document and save/close 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc As NotesDocument 

Dim doc2 As NotesDocument 

Dim maildoc As NotesDocument 

Dim view As NotesView 

Dim yesOrNo As Integer 

Dim OkCancel As Integer 

'Get some data from the base document and set the variables 

yAtty$=uidocPieldGetText("resp_atty") 

Project$=uidoc.FieldGetText( ,, Project") 

Client$=uidoc.FieldGetText("ClienLName") 

Matter$=uidoc.FieldGetText("Matter_Name") 

MatterNo$=uidoc.FieldGetText("Matter_No") 

People$=uidoc.FieldGetText('Trt - route_ev") 

Sender$=Session.CommonUserName 

Select Case Project$ 

Case "Prosecution: Patent" 

Ref$=uidocPieldGetText("desc_patent") 
Case "Prosecution: Trademark" 

Ref$=uidoc.FieldGetText(' , descJm") 
Case Else 

Ref$=uidocPieldGetText("info_other") 
End Select 

'Electronically route the info to the default profile and the attorney 
'If uidoc.lsNewDoc Or xAtty$<>yAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
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Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

'Set the default routing (SendTo field) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Project$=Trosecution: Patent" QrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Projects 
Case "Prosecution: Patent" 

maiIdoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Other" 

maildoc.SendTo=uidoc.FieldGetText("lit_^oute_ev ,, ) 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject="New Event Notification" 

'Start to compile the body field 
Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Clients 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Event has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText 'The Event pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText yAtty$ +" has been assigned as the responsible attorney for this Event." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBoxr(MailNot)", True, True, False, False, False, False, "New 

Event Notification",Maildoc) 

lfFlag=True Then 
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Set item= maildoc.GetFirstitem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine2 

.AppendText "Please click here to view the Event — >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt="" 

maildoc.Form-'Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End If 'dialogbox for message to default group 
' End If 

'Notify the responsible attorney 

'If uidoc. IsNewDoc Or xAtty$oyAtty$ Then 

maildoc.Form-'MailNot" 

maildoc.SendTo-'" 

maildoc.body-"* 

maildoc.SendTo=yAtty$ 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=Fa!se 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [' + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Event has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText "The Event pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "You have been designated the responsible attorney for this Event." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New 

Event Notification^Maildoc) 
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If Flag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item. values 

Call rtibody.AppendText (text) 

Call rtibody. AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Event- 
.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt="" 
maildoc.Form-'Memo" 
maildoc.HoldTxt= ,,M 
Call maildoc.Send(False) 
End If 
•End If 
'End If 
End Sub 
(Action) Manually Route 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Dim uidoc2 As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim Routdoc As NotesDocument 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
Dim nn As NotesName 
'Get project and form type 
Project$=uidoc.FieldGetText("Project") 
Form$=uidoc.FieldGetTextCFormName") 
'Set the project type 
Select Case Project$ 
Case "Prosecution: Patent" 
rt$="Patent Routing Slip" 
RoutForm$="ProsRoutPat" 
Case "Prosecution: Trademark" 
rt$-Trademark Routing Slip" 
RoutForm$="ProsRoutTM" 
Case "Prosecution: Copyright" 
rt$="Copyright Routing Slip" 
RoutForm$="ProsRoutCR" 
Case "Litigation" 

rt$="Litigation Routing Slip" 
Case "Counselling and Advice" 



rt$="C&A Routing Slip" 
Case "Other" 

rt$="Other Event Routing Slip" 
End Select 

'Get some general doc info from form 

Att$=uidocPieIdGetText("resp_atty") 

Client$=uidoc.FieldGetText( M ClienLName") 

ClientNo$=uidoc.FieldGetText("ClienLNo") 

MatterName$=uidoc.FieldGetText("Matter_Name") 

MatterNo$=uidoc.FieldGetText( ,, Matter - No") 

Ref$=uidoc.FieldGetText("PDescrip") 

'Check for conditions, save the Event form and bring up the correct manual routing form 
If Form$="Event" And (Project$="Prosecution: Copyright" Or Project$="Prosecution: 

Patent" Or 

Project$="Prosecution: 
Trademark") Then 

Call uidoc.Reload 

'Get some routing information from the profile but make it dependant on type routing 
Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
If RoutForm$="ProsRoutPat" Then 

Set iteml =doc.GetFirstltem("ProsRoutePatCpy1 ") 

Set ltem3=doc.GetFirstltemCProsRoutePatCpy3") 

Set ltem4=doc.GetFirstltem("ProsRoutePatCpy4") 
End If 

If RoutForm$="ProsRoutTM" Then 

Set iteml =doc.GetFirstltem("ProsRouteTMCpy1 ") 

Set ltem3=doc.GetFirstltemC , ProsRouteTMCpy3 , 7 

Set ltem4=doc.GetFirstltem("ProsRouteTMCpy4") 

Set ltem5=doc.GetFirstltem("ProsRouteTMCpy5") 
End If 

If RoutForm$="ProsRoutCR" Then 

Set iteml =doc.GetFirstltem("ProsRouteCRCpy1 ") 

Set ltem3=doc.GetFirstltemC'ProsRouteCRCpy3") 

Set ltem4=doc.GetFirstltem("ProsRouteCRCpy4") 
End If 

'Create the routing document and populate the distribution 
Set Routdoc = db.CreateDocument 
Routdoc.Form=RoutForm$ 

Routdoc.PRoute_1 = iteml .values 'always to the docket 
Routdoc.PRoute_2=Att$ Always the attorney 
•Populate the Patent routing other distro fields 
If RoutForm$="ProsRoutPat" Then 

Set Tgtltem=New Notes!tem(Routdoc, "PRoute_3", "") 

Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forail 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forall 
End If 

'Populate the Trademark routing distro 
If RoutForm$="ProsRoutTM" Then 
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Set Tgtltem=New Notesltem(Routdoc, "PRoute_3", "") 
Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

Tgtltem.AppendToTextList x+ " __"+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_5", "") 
Forall x In ItemS.values 

Tgtltem.AppendToTextList x+ " "+ Chr(010) 

End Forall 
End If 

If RoutForm$="ProsRoutCR" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3 w , ,m ) 
Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notes ltem(Routdoc, "PRoutejT, ,,H ) 
Forall x In Item4.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 
End If 

'Fill in the other info on the routing doc 
Ro utd o c. pros_ro ut_re=Ref$ 
Routdoc.route_type=rt$ 

Routdoc.ClientNameNum=="Client: " + Client$ + " - " +ciientNo$ 
Routdoc.MatterNameNum="Matter: " + MatterName$ + " - " + MatterNo$ 
Routdoc.cre_date1 =Now 

Routdoc.route_author1 =session.CommonUserName 
Set uidoc2=workspace.EditDocument(False, Routdoc, False) 
'Handle the Litigation and Other Routing Events 

Elseif FormS^'Event" And (Project$="Counselling and Advice" Or Project$="Other" Or 

Project$="Litigation") Then 

Call uidoc.Reload 
'Get some specific form info 
Select Case Project$ 
Case "Litigation" 

LitRout$=uidoc.FieldGetText("LitigationEvent") 
Case "Counselling and Advice" 

LitRout$=uidoc.FieldGetText("CounselEvent") 
Case "Other 

LitRout$=uidoc.FieldGetText("OtherEvent") 
End Select 

'Create the routing document and populate it 
Set Routdoc = db.CreateDocument 
Routdoc.Form="LitRout" 

Routdoc.ClientNameNum=Client$ + " - " + ClientNo$ 
Routdoc.MatterNameNum=MatterName$ + " - " +MatterNo$ 
Routdoc.lit_rout_re=LitRout$ 
Routdoc.document=ref$ 

Routdoc.route_author1=session.CommonUserName 
Routdoc.cre_date1 =Now 
Routdoc.lit_route1_to=Att$ 
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Routdoc.Route_Type= rt$ 

'Process routing info from Event/Task form 

Set doc=uidoc.document 

Dim RegName 0 As String 

Set iteml =doc.GetFirstltem("lit_route_ev") 

Choices=item1 .values 

Redim RegName (Ubound (Choices)) 

counter=0 

Forall temp In Choices 

Set nn = New NotesName(temp) 

RightName$= nn. Common 

RegName(counter)=RightName$ +"_ " 

counter=counter+1 
End Forall 

Set Tgtltem=New Notesltem(Routdoc, M litjroute_to'\ RegName) 
Set uidoc2=workspace.EditDocument(False, Routdoc, False) 
Else 

Messagebox "There is no manual routing for this Event or Task.",0+1 6+0+0 

End If 'Man Routing 
End Sub 
(Action) Save and Close 

Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Define the the counterpart y variables for those x variables in postopen 

Client$=uidoc.FieldGetTextC'Client_Name") 

MatterNo$=uidoc.FieldGetText( ,, Matter_No") 

Atty$=uidoc.FieldGetText("resp_atty") 

Project$=uidoc.FieldGetText("Project") 

MBody$="Client - " + Client$ + Chr(010) + "Matter No. - " + MatterNo$ + Chr(010) + 

"Project - " + Projects 

yCopyright$=uidoc.FieldGetText("CopyrightEvent") 
yPatent$=uidoc.FieldGetTextC'PatentEvent") 
yTrademark$=uidoc.FieldGetText('TrademarkEvent") 
yCounsel$=uidoc.FieldGetText("CounselEvent") 
yLitigation$=uidoc.FieldGetText("LitigationEvent") 
yOther$=uidoc.FieldGetText("OtherEvent") 
yEventDate=uidoc.FieldGetText("EventDate") 
yDes$=uidoc.FieldGetText("PDescrip") 
yAtty$=uidoc.FieldGetText("resp_atty") 
yDescTm$=uidoc.FieldGetText("desc_tm") 
yDescPat$=uidoc.FieldGetText("desc_patent") 
yOtherlnfo$=uidoc.FieldGetText("info_other") 
yLitRouteEv$=uidoc.FieldGetTextC'liLroute - ev") 
'Grab values to check for a bad Task Closure 
UnHide$=uidoc.FieldGetText("UnHideEV") 
RetireBy$=uidoc.FieldGetText("Retire_By") 
TEArchive$=uidoc.FieldGetTextCTEArchive") 
TEDateComplete$=uidoc.FieldGetText("TEDateComplete") 
TEDate%=Len(TEDateComplete$) 



ClosingEV$=uidoc.FieldGetText( ,, ClosingEV") 
'Before we do anything, Check for a bad task closure 
If UnHide$="yes" Then 
. lfTEDate%<1 Then 

Ok%=Messagebox("You have attempted to retire this Event without properly 

completing the Closure 
information. " &_ 

"Please provide the required closure information or use the 'Cancel' button to abort 

your changes 
!'\0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 
End If 

lfClosingEV$="yes" Then 
lfUnHide$= "yes" Then 

Ok%=Messagebox("Please Finish Retiring the Event by pressing the 'Retire Event' 

button again." 
,0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 
End If 

'Define some other variables 
yhist$=uidoc.FieldGetTextC , History") 

NewHist$ = "Modified on " + Date$+" "+Time$ '+ " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 

Call uidoc.FieldSetText("PropClose", "Closed") 

Call uidoc.FieldSetText("TEArchive" ."no") 

'Check each field for change to compile the change history 

If xCopyright$ <> yCopyright$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: " + yCopyright$ + " from " + 

xCopyright$ 

update$="Y" 
End If 

If xPatent$ <> yPatent$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: " + yPatent$ + " from " + 

xPatent$ 

update$='Y" 
End If 

If xTrademark$ <> yTrademark$ Then 

NewHist$ = NewHist$ &Chr(010) + "Event changed to: "+ yTrademark$ + " from " + 

xTrademark$ 

update$="Y" 
End If 

If xCounsel$ <> yCounsel$ Then 

NewHist$= NewHist$ &Chr(010) +"Event changed to: "+ yCounsel$ + " from " + 

xCounsel$ 

update$="Y" 
End If 

If xLitigation$ <> yLitigation$ Then 
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NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yLitigation$ + " from " + 

xLitigation$ 

update$='Y" 
End If 

If xOther$ <> yOther$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yOther$ + " from " + xOther$ 

update$= , Y" 
End If 

If xEventDate <> yEventDate Then 

NewHist$= NewHist$ &Chr(010) + "Event Date changed to: "+ Format(yEventDate, 

"Short Date") + " from " + 
Format(xEventDate, "Short 
Date") 

update$='Y" 
End If 

If xdes$ <> ydes$ Then 

NewHist$= NewHist$ &Chr(010) + 'The Event Description was changed. " 

update$="Y" 
End If 

lfxAtty$ <>yAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney was changed to: "+ yAtty$ + 

" from " + xAtty$ 

update$="Y" 
End If 

If xDescTm$<>yDescTM$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescTM$ 

+" from "+xDescTM$ 

update$="Y" 
End If 

If xDescPat$<>yDescPat$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yDescPat$ 

+" from "+xDescPat$ 

update$='Y" 
End If 

If xOtherlnfo$oyOtherlnfo$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing information was changed to: "+yOtherlnfo$ 

+" from "+xOtherlnfo$ 

update$="Y" 
End If 

If xLitRouteEv$oyLitRouteEv$ Then 

NewHist$= NewHist$ &Chr(010) + "Routing list was changed to: "+yLitRouteEv$ +" 

from "+xLitRouteEv$ 

update$="Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 
• If uidoc.lsNewDoc Then 

Call uidqc.FieldSetText("StatusJ", "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by " + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 
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Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +"• 



End If 
End If 

Call uidoc.Save 
Call uidoc.Close 
End Sub 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: . 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype:. 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 



&Chr(010) + yhist$) 



EvProjKeys 

04/20/1999 02:06:12 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

Hide 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

First Last 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 
ET1 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



No 

Disabled 

No 

No 

ET2 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ET3 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ET4 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ET5 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ET6 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 



Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi- Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 



ED1 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ED2 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PT1 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PT2 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PT3 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PC1 

Text 

New Line 
New Line 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



' Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Matter 

04/20/1999 02:06:13 PM 

[Not Assigned] 

Response to Document 

@lf(@lsNewDoc; "New Matter"; 

MatterJsJame + " [" + 

MatterJMo + "]"); 

Yes 

Yes 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

ClientDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 
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Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



No 

PropClose 
ClientJMame 

Text 

Client Name 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientJMame; 

@GetDocField($Ref; 

"ClientJMame")); 

No 

ClientJMo 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientJMo; 
@GetDocField($Ref; 
"Client Jslo")); 
No 

MatterJJame 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Trim(MatterJMame); 
No 

MatterJMo 

Keywords 

[Not Assigned] 

Editable 

Standard 

Yes 

00600 

00601 

00602 

00603 

00604 

00605 

00606 

00607 

00608 

00609 

00610 

00611 

00612 

00613 

00614 
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00615 

00616 

00617 
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00623 
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00628 
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00648 
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00657 

00658 

00659 
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00661 

00662 

00663 

00664 

00665 

00666 

00667 

00668 



00669 
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00675 
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00696 

00697 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

.Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
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Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 
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@DbColumn(' 
Profile)"; 3); 
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No 

No 

Image 

Rich Text 
[Not Assigned] 
Editable 
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(Routing 
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Type: 

Caption: 

Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



Button 

Invention Detail 

@DialogBox("(PatentM 
atterHelper)"; [AutoVertFit] : 
[AutoHorzFit] : [NoNewFields]; 
"Invention Detail"); 
clients_billing 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

inventor 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

serial_number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

related_matter_no 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pofa_fa 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

PoA 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 



No 

concept 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
rp 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

inhousedisclos 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

external_disclos 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

whom 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Untitled_Section 

Section 
Comma 

Document Statistics 

Editable 

No 

Disabled 

No 

No 

Status_1 

History 

Close 



Formula: 



@Command([FiIeClose 



Action: 



Action: 



Action: 



Formula: 



Formula: 



Formula: 



Window]); 
Cancel 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

owj); 

Edit 

@Command([EditDocument]); 
New Project 

TList := @DbColumn(""; M " : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELCOMBO 
]; "New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project")); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
Use "UpdateFields" 

Variables for ClientName, ClientNo, MatterName, MatterNo defined in script lib for update 



Public xDes$ 

Public xRespAtty$ 

Public xBillAtty$ 

Public xSNum$ 

Public xRelMat$ 

Public xPofaFa$ 

Public xPoA$ 

Public xConcpt$ 

Public xRp$ 

Public xlDisc$ 

Public xExDisc$ 

Public xWhom$ 
(Form) Matter 

Sub Postopen(Source As Notesuidocument) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 



fields 
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Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose", "Open") 
End If 

xMatterName$=uidoc.FieldGetText("Matter_Name") 
xMatterNo$=uidoc.FieldGetText( n Matter_No") 
xDes$=uidocPieldGetText("Description") 
xRespAtty$=uidoc.FieldGetText(7esp_atty") 
xBillAtty$=uidoc.FieldGetText("BilLAtty") 
xClientBill$=uidoc.FieldGetText("clients_billing ,, ) 
xPlnventor$=uidoc.FieldGetText("inventor) 
xSNum$=uidoc.FieldGetText("seriaLnumber") 
xRelMat$=uidoc.FieldGetText("related_matter_no") 
xPofaFa$=uidocPieldGetText("pofa_fa") 
xPoA$=uidoc.FieldGetText("PoA") 
xConcpt$=uidoc.FieldGetText("concept") 
xRp$=uidoc.FieldGetText("rp") 
xlDisc$=uidoc.FieldGetText('1nhouse_disclos^ 
xExDisc$=uidoc.FieldGetText("externaLdisclos") 
xWhom$=uidocPieldGetText("whom") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose", "Open") 

End If 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=source.FieldGetText("PropClose") 

If PropClose$o"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!" f 0+48+0+0, ,, ERROR") 

lfOk%=1Then 

continue=False 
End If 
End If 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
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Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidoc.FieldGetText("resp_atty") 

BilAtty$=uidoc.FieldGetText("biiLatty ,, ) 

Client$=uidoc.FieldGetText( M ClienLName ,, ) 

Matter$=uidoc.FieldGetText("MatterJvJame') 

MatterNo$=uidoc.FieldGetText("Matter_No") 

Sender$=Session.CommonUserName 

'Electronically route the info to the default profile and the attorney 
'If uidoc.lsNewDoc Or xAtty$oyAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 

'Set the default routing (SendTo field) and bring up the form 

Set view = db.GetView( "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

mai!doc.SendTo=doc.NewMatter_Routing 

maildoc.CopyTo=Sender$ 

maildoc.Subject="New Matter Notification" 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "New Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Matter has been created for " + Clients +V 
.AddNewLine 2 

.AppendText yAtty$ +" is the responsible attorney for this Matter." 
.AddNewLine 1 

.AppendText BilAtty$ + " is the billing attorney." 
.AddNewLine 2 
rtStyle.bold=True 
AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox( M (MailNot) H , True, True, False, False, False, False, "New 

Matter Notification",Maildoc) 

If Flag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtSty!e.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 



Call rtibody.AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view details of this Matter- >" 

.AppendDocLink uidoc.document,"" 
-AddNewLine 2 
End With 

maildoc.EditTxt= ,m 

maildoc.Form-'Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End If 'dialogbox for message to default group 

'If uidoc. IsNewDoc Or xAtty$oyAtty$ Then 
maildoc.Form="MailNot" 
maildoc.SendTo=yAtty$ + "; " + BilAtty$ 
maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "New Matter - " + Matter$ + " [" + MatterNo$ + 
.AddNewLine 2 

.AppendText "Please note that a new Matter has been created for " + Client$ +"." 
.AddNewLine 2 

.AppendText respAtty$ + " is the responsible attorney for this Matter!" 
.AddNewLine 1 

.AppendText BilAtty$ + " is the billing attorney." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New 

Matter Notification",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view details of this Matter- >" 

.AppendDocLink uidoc.document/'" 
.AddNewLine 2 
End With 
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maildoc.EditTxt= m ' 
maildoc.Form-'Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 
'End If 
'End If 
End Sub 
(Action) Save & Close 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim theAgent As NotesAgent 

'Define the the counterpart y variables for those x variables in postopen 
yMatterName$=uidoc.FieldGetText("Matter_Name") 
yMatterNo$=uidoc.FieldGetText("Matter_No") 
yDes$=uidoc.FieldGetText("Description") 
yRespAtty$=uidoc.Fie!dGetText("resp_atty") 
yBillAtty$=uidoc.FieldGetText("BilLAtty") 
yClientBill$=uidoc.FieldGetText( M clients_billing ,, ) 
yPlnvento^uidoc.FieldGetTextCinventor") 
ySNum$=uidoc.FieIdGetText("seriaLnumber") 
yRelMat$=uidoc.FieldGetText("related_matter_no") 
yPofaFa$=uidoc.FieldGetText("pofa_fa") 
yPoA$=uidoc.FieldGetText("PoA") 
yConcpt$=uidoc.FieldGetText("concept") 
yRp$=uidoc.FieldGetTexl("rp") 
ylDis<$=uidoc.FieldGetText("inhouse_disclos") 
yExDisc$=uidoc.FieldGetText("externaljjisclos") 
yWhom$=uidoc.FieldGetText( M whom") 
'Define some other variables 
yhist$=uidoc.FieldGetText( M History M ) 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetText("PropClose", "Closed") 
'Check each field for change to compile the change history 
If xMatterName$ <> yMatterName$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Name changed to: " + yMatterName$ + 

from " + xMatterName$ 

update$="Y" 
End If 

If xMatterNo$ <> yMatterNo$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Number changed to: " + yMatterNo$ + " 

from " + xMatterNo$ 

update$='Y M 
End If 

If xDes$ <> yDes$ Then 

NewHist$ = NewHist$ &Chr(010) + "Matter Description changed." 
update$="Y" 



End If 

If xRespAtty$ <> yRespAtty$ Then 

NewHist$= NewHist$ &Chr(010) +"Responsible Attorney changed to: '*+ yRespAtty$ + 

" from " + xRespAtty$ 

update$='Y" 
End If 

If xBillAtty$ <> yBillAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Biling Attorney changed to: "+ yBillAtty$ + " from " 

+ xBillAtty$ 

update$='Y" 
End If 

If xClientBill$ <> yClientBill$ Then 

NewHist$ = NewHist$ &Chr(010) + "Client's Billing Number changed to: " + ydientBill$ 

+ " from " + xClientBill$ 

update$='Y" 
End If 

If xPlnventor$ <> yPlnventor$ Then 

NewHist$ = NewHist$ &Chr(010) + "Inventor changed to: " + yPlnventor$ + " from " + 

xPlnventor$ 

update$="Y" 
End If 

If xSNum$ <> ySNum$ Then 

NewHist$ = NewHist$ &Chr(010) + "Serial Number changed to: " + ySNum$ + " from " 

+ xSNum$ 

update$='Y" 
End If 

If xRelMat$ <> yRelMat$ Then 

NewHist$ = NewHist$ &Chr(010) + "Related Matter Number changed to: " + yRelMat$ 

+ " from " + xRelMat$ 

update$= , Y" 
End If 

If xPofaFa$ <> yPofaFa$ Then 

NewHist$ = NewHist$ &Chr(010) + "Classes changed to: " + yPofaFa$ + " from " + 

xPofaFa$ 

update$="Y" 
End If 

If xPoA$ <> yPoA$ Then 

NewHist$ = NewHist$ &Chr(010) + "Power of Attorney changed to: " + yPoA$ + " from 

" + xPoA$ 

update$="Y" 
End If 

If xConcpt$ <> yConcpt$ Then 

NewHist$ = NewHist$ &Chr(010) + "Concept Date changed to: " + yConcpt$ + " from " 

+ xConcpt$ 

update$="Y" 
End If 

lfxrp$ <> yrp$ Then 

NewHist$ = NewHist$ &Chr(010) + "Reduction to Practice changed to: " + yrp$ + " from 

" + xrp$ 

update$="Y" 
End If 

If xlDisc$ <> ylDisc$ Then 

NewHist$ = NewHist$ &Chr(010) + "Inhouse Disclosure Date changed to: " + ylDisc$ + 

" from " + xlDisc$ 
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update$="Y" 
End If 

If xExDisc$ <> yExDisc$ Then 

NewHist$ = NewHist$ &Chr(010) + "External Disclosure Date changed to: " + yExDisc$ 



update$="Y" 
End If 

If xWhom$ <> yWhom$ Then 

NewHist$ = NewHist$ &Chr(010) + "To Whom disclosed changed to: " + yWhom$ + " 



update$="Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 

If uidoc.lsNewDoc Then 

Call uidoc.FieldSetText("Status_1'\ "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 



Call uidoc.Save 
Call uidoc.Close 
Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) 



End If 
End If 

'Save the document, update the children and close the document 

Call uidoc.Save 

If Not uidoc.lsNewDoc Then 

Call SetFields(uidoc.document) 
End If 

Call uidoc.Close 



+ " from " + xExDisc$ 



from " + xWhom$ 



by " + 

Session.CommonUserName 
&Chr(010)) 



&Chr(010) + yhist$) 



End Sub 



Name: 



Project 

07/28/1999 10:03:29 AM 
[Not Assigned] 
Response to Response 
@lf(@lsNewDoc; "New 
Project"; Project + "-•" + . 
Client_Name); 



Last Modification: 



Comment: 



Type: 

Window Title Formula: 



Automatically Refresh Fields: 

Mail New Documents When Saving: 



Updates Become Responses: 



Store Form In Documents: 
Inherit Default Field Values: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 



No 

Yes 

No 

No 

No 

No 

Yes 

No 
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Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 



No 
No 
No 
No 

[None Assigned] 
All Users 
All Users 

ClientDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ClientDocID; 

@GetDocField($Ref; 

"ClientDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text(@DocumentUniquelD); 

No 

Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 
Qr.|Dr. 
Prof. | Prof. 
Mr.JMr. 
Ms.|Ms. 
Miss|Miss 
Mrs. [Mrs. 
No 



Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



Disabled 

No 

No 

FirstName 

Text 

First name(s) and nicknames 
e.g. John; Johnny 
Editable 
No 

Disabled 

Yes 

No 

Middlelnitial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 

Yes 

No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 

Yes 

No 

Suffix 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 
Jr.JJr. 
Sr.|Sr. 
I 

II 
HI 
No 

Disabled 

No 

No 

Street Address 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
City 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

State 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ZIP 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Country 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

SubType 
Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

@Environment("SubType"); 
No 

PropClose 
ClientJMame 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Client Jslame; 

@GetDocField(ClientDoclD; 

M Client_Name")); 

No 

ClientNo 

Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access- 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Clientjslo; 

@GetDocField(ClientDoclD; 

"Client_No")); 

No 

MatterJMame 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Matter_Name; 

@GetDocFietd(MatterDoclD; 

"Matter_Name")); 

No 

MatterJMo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMo; 

@GetDocField(MatterDoclD; 

"MatterJMo")); 

No 

Project 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

SubType 
No 

cre_date 
PDescrip 
ProjectCountry 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

United States (US) 
Afghanistan (AF) 
Africa (OA) 
ALbania (AL) 
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ALgeria (DZ) 
Andorra (AD) 
Angola (AO) 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 

Brunei (BN) 

Bulgaria (BG) 

Burundi (Bl) 

Cambodia (CB) 

Canada (CA) 

Cape Verde Islands (CV) 

Cape Verde (CV) 

Cayman Islands (KY) 

Central African Republic (CF) 

Chad (TD) 

Chile (CL) 

China (CN) 

Colombia (CO) 

Congo (CG) 

Costa Rica (CR) 

Croatia (HR) 

Cuba (CU) 

Cyprus (CY) 

Czech Republic (CZ) 

Denmark (DK) 

Djibouti (DJ) 

Dominica (DM) 

Dominican Republic (DO) 

Ecuador (EC) 

Egypt (EG) 

El Salvador (SV) 
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England (GB) 
Eritrea (ER) 
Estonia (EE) 
Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadia (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 

Guernsey (GS) 

Guinea (GN) 

Guyana (GY) 

Haiti (HT) 

Honduras (HN) 

Hong Kong (HK) 

Hungary (HU) 

Iceland (IS) 

India (IN) 

Indonesia (ID) 

International (WO) 

Iran (IR) 

Iraq(IQ) 

Israel (IL) 

Italy (IT) 

Ivory Coast (CI) 

Jamaica (JM) 

Japan (JP) • 

Jersey (JE) 

Jordan (JO) 

Kazakhstan (KZ) 

Kenya (KE) 

Kiribati (Kl) 

Kuwait (KW) 

Kyrgystan (KG) 

Laos (LA) 

Latvia (LV) 

Lebanon (LB) 

Lesotho (LS 
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Liberia (LR) 
Libya (LY) 
Lichtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv (MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 
Nepal (NP) 

Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaraguia (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 
Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru (PE) 
Philiippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 
Ras-al-Khaimah (RK) 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah(SB) 
San Marino (SM) 
Sarawak (SJ) 



Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
St. Christopher (CP) 
St. Helena (SH) 
St. Kitts-Nevis (KN) 
St. Lucia (LC) 
St. Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) 
Tajikistan (TJ) 
Tangier (Tl) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Transkei (TE) 
Trinidad (TT) 
Tunisia (TN) 
Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Volta (BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin Islands (VI) 
West Bank (WB) 
Western Samoa (WS) 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator 



World (WO) 

Yemen Democratic Republic 
(YD) 

Yemen North (YE) 
Yugoslavia 
Zaire (ZR) 
Zambia (ZM) 
Zanzibar (ZZ) 
Zimbabwe (ZW) 
No 

Disabled 

No 

No 

SepProj 

Keywords 

[Not Assigned] 

Editable 

Radio Buttons 

No 

Yes 

No 

Disabled 
No 
"No" 
No 

Associate 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; Associate); 

No 

Nass 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

last := 

@Trim(@RightBack(@Name([C 
N]; Associate); " "));first := 
@Trim(@Left(@Name([CN]; 
Associate); " "));name := last + " 
, " + first;name; 
No 

Assoc_Address 
Text 
Comma 
Comma 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 

Formula: 



Action: 

Formula: 



[Not Assigned] 

Editable 

No 

Disabled 
No 

CLASS := "Notes";NOCACHE 
:= "NoCache M ;CACHE := 
"Cache";SERVER := 
@Name([CN]; 
@Subset(@DbName; 
1)); DATABASE := 
"names.nsf;VIEW := 
"BCard";KEY := Nass;VAL := 
4;LOOKUP := 
@DbLookup(CLASS : 
NOCACHE; SERVER : 
DATABASE; VIEW; KEY; 
VAL);@lf(Associate != ""; 
@lf(@lsError(LOOKUP); 
"Error"; LOOKUP); ""); 
No 

resp_atty 
PComments 

Text 

Commia, Semicolon 

Semicolon 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Document_Statistics 

Section 
Comma 

Document Statistics 

Editable 

No 

Disabled 

No 

No 

Status_1 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
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Action: 



New Event 

@Command([Compose]; 
"Event"); 



Formula: 



Action: 



New Task 

@Command([Compose]; 
"Task"); 



Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 

Use "UpdateFields" 

'Form Variables 

Public xCountry$ 

Public xAssociate$ 

Public xAssAdd$ 

Public xAtty$ 

Public SubForm$ 

Public xProj$ 

Public xPDescrip$ 

'Public xPComments$ 

'Subform shared variables 

Public xComments$ 

'Declare variables for the subforms 

'C&A 

Public xAffiliatedPty$ 
'Public xAffiliatedRy1$ 
'Public xAffiliatedPty2$ 
'Public xAffiliatedPty3$ 
•Public xAffiliatedPty4$ 
Public xAffiliatedAtty$ 
'Public xAffiliatedAtty1$ 
'Public xAffiliatedAtty2$ 
'Public xAffiliatedAtty3$ 
'Public xAffiliatedAtty4$ 
Public xPType$ 
'Litigation 
Public xStyle$ 
Public xLitType$ ^ 
Public xActionNo$ 
Public xJudge$ 
Public xACouncel$ 
Public xOCouncel$ 
Public xCoCouncel$ 
'Other 

Public xText$ 
'ProsCopyright 
Public xCSerial$ 
Public xCAppType$ 
Public xCRSerialr$ 
Public xCRMatter$ 
Public xAuthor$ 
Public xApCouncel$ 



Public xOwner$ 
Public xTransfer$ 
'ProsTM 

Public xTMSerial$ 
Public xTMAppType$ 
Public xTMRApp$ 
Public xTMRMatter$ 
Public xTM$ 
Public xMark$ 
Public xGoods$ 
Public xClass$ 
Public xTMOwner$ 
Public xTMPofa$ 
Public xFirUse$ 
Public xlSUse$ 
Public xFilDte$ 
Public xTerm$ 
Public xTDate$ 
Public xHTerm$ 
Public xRewni$ 
'ProsPatent J 
'Public xClientBill$ 
'Public xPlnventor$ 
Public xPSerial$ 
Public xPApType$ 
Public xPRApType$ 
Public xPRMatter$ 
Public xPPofa$ 
Public xPFileDate$ 
Public xPTermDate$ 
Public xWhyTerm$ 
Public xPMaint$ 
Public xPPOA$ 
(Form) Project 

Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 
End Sub 

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Set db=session.CurrentDatabase 

Dim workspace As NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

PropClose$=sburce.FieldGetText(TropClose") 

If PropClose$<>"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changesr.0+48+0+0,"ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End If 
End Sub 

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 

Continue As Variant) 
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End Sub 

Sub Postmodechange(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesU I Workspace 

Dim uidoc As NotesUIDocument 

Set uidoc ^workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose'\ "Open") 

End If 
End Sub 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 
'Set the PropClose field to Open to trap the Esc key 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetText("PropClose", "Open") 

End If 

'Define the form variables to pull from form 

xCountry$=uidoc.FieldGetTextC , ProjectCountry") 

xAssociate$=uidoc.FieldGetText("Associate") 

xAssAdd$=uidoc.FieldGetText("Assoc_Address") 

xAtty$=uidocPieldGetTextC , resp_atty") 

SubForm$=uidoc.FieldGetTextC , Subform") 

xPDescrip$=uidoc.FieldGetText("PDescrip") 

xProj$=uidoc.FieldGetText("Project") 

xPComments$=uidoc.FieldGetText("PComments") 

'Pull Info from the subforms 

'C&A 

lfSubform$="C&A" Then 

xAffiliatedPty$=uidoc.FieldGetText("affiliated_pty") 

'xAffiliatedPtyl $=uidoc.FieldGetText("affiliated_pty_1 ") 

, xAffiliatedPty2$=uidoc.FieldGetText("affiliated_pty_2") 

, xAffiliatedPty3$=uidoc.FieldGetText("affiliated_pty_3 ,, ) 

, xAffiliatedPty4$=uidoc.FieldGetText( M affiliated_pty_4") 

, xAffiliatedAtty$=uidoc.FieldGetText("aff_pty_counsel'} 

•xAffiliatedAttyl $=uidocPieldGetText("aff_pty_counseM ") 

, xAfniiatedAtty2$=uidocPieldGetTextraff_pty_counseL2'') 

'xAfniiatedAtty3$=uidocPieldGetText("aff.pty_counseL3^ 

'xAffiliatedAtty4$=uidocPieldGetTextfaff_pty_counseL4y 

xComments$=uidoc.FieldGetText("comments") 

xPType$=uidoc.FieldGetText("type_project") 

End If 
'Litigation 

If Subform$="Litigation" Then 

xStyle$=uidoc.FieldGetText("case_style") 
xLjtType$=uidoc.FieldGetText("lit_type") 
xActionNo$=uidoc.FieldGetText( ,, civil_action_no") 
xJudge$=uidoc.FieldGetText("judge") 



xACouncel$=uidoc.FieidGetText("appear_counsel") 
xOCouncel$=uidoc.FieldGetText("opp_counser') 
xCoCouncel$=uidoaFieldGetText( M co_counsel ,, ) 
xCommentsS^idoc.FieldGetTextC'comments")* 
End If 
'Other 

If Subform$="Other" Then 

xText$=uidoc.FieldGetText("text_other") 
End If 

'ProsCopyright 

If Subform$="ProsCopyright" Then 

xCSerial$=uidoc.FieldGetText("serial_number") 
xCAppType$=uidoc.FieldGetText("app_type") 
xCRSerial$=uidoc.FieldGetText( M related_sn") 
xCRMatter$=uidoc.FieldGetTextC'related_matters M ) 
xAuthor$=uidoc.FieldGetTextC'author_cw") 
xApCouncel$=uidoc.FieldGetText("appearance_counsel") 
xOwner$=uidoc.FieldGetText("owner_cw M ) 
xTransfer$=uidoc.FieldGetText("transfer_cw") 
End If 

'ProsTM 

If Subform$="ProsTM" Then 

xTMSerial$=uidoc.FieldGetText("serial_number") 
xTMAppType$=uidoc.FieldGetText( l, tm_app_type ,, ) 
xTMRApp$=uidocPieldGetText( , Yelated_apps') 
xTMRMatter$=uidoc.FieldGetText("related_matter - no") 
xTM$=uidocPieldGetTextOm") 
xMark$=uidoc.FieldGetText("mark ,, ) 
xGoods$=uidocPieldGetText("goods_serv") 
xClass$=uidoc.FieldGetTextC , classes") 
xTMOwner$=uidoc.FieldGetText("owner M ) 
xTMPofa$=uidocPieldGetText("pofa_fa") 
xFirUse$=uidoc.FieldGetTextC , first_use") 
xlSUse$=uidocPieldGetTextO_state_use") 
xFilDte$=uidoc.FieldGetText("filing_date") 
xTerm$=uidoc.FieldGetText( ,, termination") 
xTDate$=uidoc.FieldGetTextnerm_date") 
xHTerm$=uidoc.FieldGetText("howJerm ,, ) 
xRewnl$=uidoc.FieldGetText("renewal") 
End If 

'ProsPatent 

If Subform$= n ProsPatent" Then 

xClientBill$=uidoc.FieldGetText("clients_billing") 

xPlnventor$=uidoc.FieldGetTextC'inventor") 

xPSerial$=uidoc.FieldGetText("seriaLnumber") 

xPApTypeS^idocPieldGetTextfappJype") 

xPRApType$=uidoc.FieldGetText( ,, related_apps ,, ) 

xPRMatter$=uidoc.FieldGetText("reIated_matter_no ,f ) 

xPPofa$=uidoc.FieldGetText("pofaJa") 

xPFileDate$=uidoc.FieldGetText("filing_date M ) 

xPTermDate$=uidoc.FieldGetTextC , term - date") 

xWhyTerm$=uidoc.FieldGetTextC'whyJerm") 

xPMaint$=uidoc.FieldGetText( ,, maint") 

xPPOA^uidocPieldGetTextCPoA") 



End If 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidoc.FieldGetText('Yesp_atty") 

Project$=uidoc.FieldGetText("Project") 

Client$=uidoc.FieldGetText("Client_Name") 

ClientNo$=uidoc.FieldGetText( ,, Client_No") 

MatterS^uidoc.FieldGetTextfMatter^Name") 

MatterNo$=uidoc.FieIdGetText("MatterJ\lo") 

Sender$=Session.CommonUserName 

'Electronically route the info to the default profile and the attorney 
'If uidoc.lsNewDoc Or xAtty$oyAtty$ Then . 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

Set view = db.GetViewf "(Routing Profile)" ) 

Set doc = view.GetFirstDocument 

maildoc.SendTo=doc.NewProj_Routing 

maildoc. CopyTo=Sender$ 

maildoc.Subject="New Project Notification" 

'Start to compile the body field 

Set rtiBody = New Notes RichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + "[' + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Project has been created for the referenced 

Matter. This is a " + Projects + 
" project." 

.AddNewLine 2 

.AppendText yAtty$ +" has been assigned as the responsible attorney for this Project." 
.AddNewLine 2 
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rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox( ,, (MailNot)" 1 True, True, False, False, False, False, "New 

Project Notification",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (text) 

Call rtibody .AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view details of this Project- >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt="" 

maildoc.Form=' f Memo" 

maildoc.HoldTxt="" 

Call maiidoc.Send(False) 
End If 'dialogbox for message to default group 
'Notify the responsible attorney 
'If uidoc. IsNewDoc Or xAtty$<>yAtty$ Then 
maildoc.Form-'MailNot" 
maildoc.SendTo= ,m 
maildoc.body="" 
ma i Id oc. Se ndTo=yAtty $ 
maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " J- + MatterNg$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Project has been created for the referenced 

Matter. This is a " + Project$ + 
" project." 

.AddNewLine. 2 

.AppendText "You have been designated the responsible attorney for this Project." 

.AddNewLine 2 

rtStyle:bold=True 

.AppendStyle(rtStyle) 
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.AppendText "Comments: " 
End With Ytibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New 

Project Notification",Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody .AppendText (text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view details of this Project- >" 

.AppendDocLinkuidoc.document,"" 
.AddNewLine 2 
End With 

maildoc.EditTxt^"' 
maildoc.Form="Memo" 
mai!doc.HoldTxt==' m 
Call maildoc.Send(False) 
End If 
'End If 
•End If 
End Sub 
(Action) Save & Close 

Dim db As NotesDatabase 

Dim workspace As Notesll Workspace 

Dim Session As NotesSession 

Dim uidoc As NotesUIDocument 

Dim doc As NotesDocument 

Dim newdoc As NotesDocument 

Dim pdoc As NotesDocument 

Dim cltem As Notesltem 

Sub Click(Source As Button) 

'Declare the counterpart y variables to the xGlobals for form 
yCountry$=uidoc.FieldGetTextC , ProjectCountry") 
yAssociate$=uidoc.FieldGetText("Associate") 
yAssAdd$=uidoc.FieldGetText("Assoc_Address") 
yAtty$=uidoc.FieldGetTextCVesp_atty") 
yPDescrip$=uidoc.FieldGetText("PDescrip") 
yProj$=uidoc.FieldGetText(''Project") 
yPComments$=uidoc.FieldGetText("PComments") 
'Check to see if we need to create more project documents. If so go do it. 
temp$=uidoc.FieldGetText("SepProj") 
If (uidoc. IsNewDoc) And (temp$= "Yes") Then 
Call uidoc.Refresh 
ProcessProjects 
End If 

'Find out which subform we are using so we can set other variables 

SubForm$=uidoc.FieldGetText("Subform") 

'Pull Info from the subforms 
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'C&A 

lfSubform$="C&A" Then 

yAffiliatedPty$=uidoc.FieldGetText("affiliated_pty") 

'yAffiliatedPty 1 $=uidoc.FieldGetText("affiliated_pty - 1 ") 

, yAffiliatedPty2$=uidoc.FieldGetText( M affiliated_pty - 2 ,, ) 

, yAffiliatedPty3$=uidoc.FieldGetText( ,, affiliated_pty_3") 

, yAffiliatedPty4$=uidoc.FieldGetText("affiliated_pty - 4") 

yAffiliatedAtty$=uidoc.FieldGetText("aff - pty_counser') 

'yAffiliatedAttyl $=uidoc.FieldGetText("afLpty_counsel_1 ") 

VAffiliatedAtty2$=uidoc.FieldGetText("afLpty_counseL2 ,, ) 

, yAffiiiatedAtty3$=uidoc.FieldGetText("aff_pty_counseL3") 

? yAffiliatedAtty4$=uidoc.FieIdGetText("aff_pty_counseL4") 

yComments$=uidoc.FieldGetText("comments") 

yPType$=uidoc.FieldGetText("type_project") 

End if 

'Litigation 

If Subform$="Litigation" Then 

yStyle$=uidoc.FieldGetText( ,, case_style") 

yLitType$=uidoc.FieIdGetText("lit_type ,, ) 

yActionNo$=uidoc.FieldGetText( M civiLaction_no M ) 

yJudgeS^idoc.FieldGetTextC'judge") 

yACouncel$=uidoc.FieldGetText("appear_counser) 

yOCouncel$=uidoc.FieldGetText("opp_counser> 

yCoCouncel$=uidoc.FieldGetText("co_counser') 

yComments$=uidocPieldGetText("comments") 

End If 

'Other 

If Subforrr^'Other" Then 

yText$=uidoc.FieldGetTe>dOext_otheO 
End If 

'ProsCopyright 

If Subform$="ProsCopyrighf Then 

yCSerial$=uidoc.FieldGetText("seriaLnumber M ) 

yCAppType$=uidocPieldGetText("app_type") 

yCRSerial$=uidocPieldGetText("related_sn") 

yCRMatter$=uidoc.FieldGetText("related_matters M ) 

yAuthor$=uidoc.FieldGetText("author_cw") 

yApCouncel$=uidoc.FieldGetText( ,, appea^ance_counse^ , ) 

yOwner$=uidoc.FieldGetText("owne^_cw' , ) 

yTransfer$=uidoc.FieldGetText("transfer_cw") 

End If 

ProsTM 

If Subform$="ProsTM M Then 

yTMSerial$=uidoc.FieldGetText( ,, serial_number") 

VTMAppType$=uidocPieldGetTextOm_app_type^ 

yTMRApp$=uidocPieldGetText("related_apps") 

yTMRMatter$=uidoc.FieldGetText( M related_matter_no") 

yTM$=uidocPieldGetText("tm") 

yMark$=uidoc.FieldGetText("mark") 

yGoods$=uidoc.FieldGetText( , 'goods_serv") 

yClass$=uidoc.FieldGetText("classes") 

yTMOwner$=uidoc.FieldGetText("owner") 

yTMPofa$=uidoc.FieIdGetText("pofa_fa") 

yFirUse$=uidoc.FieIdGetTextC , first_use ,? ) 



ylSUse$=uidoc.FieldGetText("i_state_use") 

yFilDte$=uidoc.FieldGetText("filing - date") 

yTe^m$=uidoc.FieIdGetText( ,, termination ,, ) 

yTDate$=uidoc.FieldGetText("term_date H ) 

yHTerm$=uidoc.FieldGetText("howJerm ,, ) 

yRewnl$=uidoc.FieldGetText("renewal") 
End if 
'ProsPatent 

If Subform$="ProsPatent" Then 

yClientBill$=uidoc.FieldGetText("cIients_billing") 

yPlnventor$=uidocPieldGetText("inventor") 

yPSeria!$=uidoc.FieldGetText( ,, seriaLnumber ,, ) 

yPApType$=uidocPieldGetText("app_type") 

yPRAppType$=uidoc.FieldGetText("related_apps") 

yPRMatter$=uidoc.FieldGetText("related_matter_no") 

yPPofa$=uidocPieldGetText("pofaJa") 

yPFileDate$=uidoc.FieldGetText("filing_date ,, ) 

yPTermDate$=uidoc.FieIdGetText( ,, term_date") 

yWhyTe^m$=uidoc.FieldGetText( ,, whyJerm ,, ) 

yPMaint$=uidocPieldGetText("maint") 

yPPOA$=uidoc.FieldGetText("PoA") 
End If 

'Declare some other variables 
yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by B + Session.CommonllserName 
update$="N" 

'Set the PrppClose field so we can close the document 
Call uidoc.FieldSetText("PropClose", "Closed") 
'Check the form fields to see if they have changed 
If xCountry$ <> yCountry$ Then 

NewHist$ = NewHist$ &Chr(010) + "Country changed to: " + yCountry$ + " from " + 

xCountry$ 

update$="Y" 
End If 

If xAssociate$ <> yAssociate$ Then 

NewHist$ = NewHist$ &Chr(010) + "Associate changed to: "+ yAssociate$ + " from 

xAssociate$ 

update$="Y" 
End If 

If xAssAdd$ <> yAssAdd$ Then 

NewHist$ = NewHist$ &Chr(010) + "Associate Address changed to: "+ yAssAdd$ + 

from " + xAssAdd$ 

update$="Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Responsible Attorney changed to: "+ yAtty$ + " 

from" + xAtty$ 

update$="Y" 
End If 

If xPDescrip$<>yPDescrip$ Then 

NewHist$=NewHist$ &Chr(010) + "Project Description was changed." 

update$="Y" 
End If 

If xProj$<>yProj$ Then 



NewHist$=NewHist$ &Chr(01 0) + "Project Name was changed to:"+ yProj$ + " from " + 

xProj$ 

update$="Y" 
End If 

If xPComments$<>yPCommerits$ Then 

NewHist$=NewHist$ &Chr(010) + "Project Comments were changed." 

update$="Y" 
End If 

'Check the subforms to see if they have changed 
'C&A 

If SubForm$="C&A" Then 

If xAffiliatedPty$ <> yAffiliatedPty$ Then 

NewHist$= NewHist$ &Chr(010) + "Affiliated Party changed to: "+ yAffiliatedPty$ + " 

from " + xAffiliatedPty$ 

update$="Y' 
End If 

•If xAffiliatedRyl $ <> yAffiliatedPtyl $ Then 
'NewHist$= NewHist$ &Chr(010) + "Additional Affiliated Party 2 changed to: "+ 

yAffiliatedRyl $ + " from " + 
xAffiliatedRyl $ 

•update$="Y" 
'End If 

•If xAffiliatedRy2$ <> yAffiliatedRy2$ Then 
"NewHist$= NewHist$ &Chr(010) + "Additional Affiliated Party 3 changed to: "+ 

yAffiliatedPty2$ + " from " + 
xAffiliatedPty2$ 

•update$="r' 
•End If 

'If xAffiliatedRy3$ <> yAffiliatedRy3$ Then 

'NewHist$= NewHist$ &Chr(010) + "Additional Affiliated Party 4 changed to: "+ 

yAffiliatedRy3$ + " from " + 
xAffiliatedPty3$ 

•update$="Y' 
'End If 

'If xAffiliatedRy4$ <> yAffiliatedRy4$ Then 

'NewHist$= NewHist$ &Chr(010) + "Additional Affiliated Party 5 changed to: "+ 

yAffiliatedPty4$ + " from " + 
xAffiliatedPty4$ 

'update$="Y" 
'End If 

If xAffiliatedAtty$ <> yAffiliatedAtty$ Then 

NewHist$= NewHist$ &Chr(010) + "Affiliated Party Counsel changed to: "+ 

yAffiliatedAtty$ + " from " + 
xAffiliatedAtty$ 

update$="Y" 
End If 

'If xAffiliatedAtty1$ <> yAffiliatedAttyl $ Then 

'NewHist$= NewHist$ &Chr(010) + "Affiliated Party Attorney 2 changed to: "+ 

yAffiliatedAttyl $ + " from " + 
xAffiliatedAtty1$ 

'update$="Y" 
'End If 

'If xAffiliatedAtty2$ <> yAffiliatedAtty2$ Then 

'NewHist$= NewHist$ &Chr(010) + "Affiliated Party Attorney 3 changed to: "+ . . . 
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yAffiliatedAtty2$ + " from " + 
xAffiliatedAtty2$ 

•update$="Y" 
'End If 

'If xAffiliatedAtty3$ <> yAffiliatedAtty3$ Then 

'NewHist$= NewHist$ &Chr(01 0) + "Affiliated Party Attorney 4 changed to: "+ 

yAffiiiatedAtty3$ + " from " + 
xAffiliatedAtty3$ 

'update$="Y" 
'End If 

'If xAffiliatedAtty4$ <> yAffiliatedAtty4$ Then 

'NewHist$= NewHist$ &Chr(010) + "Affiliated Party Attorney 5 changed to: "+ 

yAffiliatedAtty4$ + " from " + 
xAffiliatedAtty4$ 

, update$="r i 
'End If 

If xPType$ <> yPType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type of Project changed to: "+ yPType$ + " 

from " + xPType$ 

update$="Y" 
End If 

If xComments$<>yComments$ Then 

NewHist$=NewHist$ &Chr(010) + "Comments added or changed." 
update$="Y" 
End If 
End If 'C&A Subform 
'Litigation 

If SubForm$="Litigation" Then 
If xStyle$ <> yStyle$ Then 

NewHist$= NewHist$ &Chr(010) + "Case Style changed to: "+ yStyle$ + " from " + 

xStyle$ 

update$="Y" 
End If 

If xLitType$ <> yLitType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type changed to: "+ yUType$ + " from " + 

xLitType$ 

update$="Y" 
End If 

If xActionNo$ <> yActionNo$ Then 

NewHist$= NewHist$ &Chr(010) + "Civil Action Number changed to: "+ yActionNo$ 

+ " from r + xActionNo$ 

update$=• , r , 
End If 

If xJudge$ <> yJudge$ Then 

NewHist$= NewHist$ &Chr(010) + "Judge changed to: "+ yJudge$ + " from " + 

xJudge$ 

update$="Y tf 
End If 

If xACounsel$ <> yACounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Appearance of Counsel changed to: "+ 

yACounsel$ + " from " + 
xACounsel$ 

update$="Y" 
End If 
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If xOCounsel$ <> yOCounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Opposing Party changed to: "+ yOCounsel$ + " 

from " + xOCounsel$ 

update$="Y" 
End If 

If xCoCounsel$ <> yCoCounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Counsel for Opposing Party changed to: "+ 

yCoCounsel$ + " from " + 
xACoCounsel$ 

update$="Y' 
End If 

If xComments$ <> yComments$ Then 

NewHist$= NewHist$ &Chr(010) + "Comments changed " 
update$="Y" 
End If 
End If 'Litigation 
•Other 

lfSubform$="Other"Then ■ 
If xText$ <> yText$ Then 

NewHist$= NewHist$ &Chr(010) + "Event changed to: "+ yText$ + ■ from " + xText$ 
update$="Y" 
End If 
End If 'Other 
'Pros Copyright 

If Subform$="ProsCopyright" Then 
If xSerial$ <> ySerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ ySerial$ + " from " 

+ xSerial$ 

update$="Y" 
End If 

If xCAppType$ <> yCAppType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type of Application changed to: "+ yCAppType$ 

+ " from " + xCAppType$ 

update$="Y" 
End If 

If xCRSerial$ <> yCRSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Application^) changed to: "+ 

yCRSerial$+ " from " + 
xCRSerial$ 

update$="Y" 
End If 

If xCRMatter$ <> yCRMatter$Then 

NewHist$= NewHist$ &Chr(010) + "Related Matter Numbers changed to: "+ 

yCRMatter$ + " from " + 
xCRMatter$ 

update$="Y' 
End If 

If xAuthor$ <> yAuthor$ Then 

NewHist$= NewHist$ &Chr(01 0) + "Author changed to: "+ yAuthor$ + " from " + 

xAuthor$ 

update$= M r' 
End If 

If xApCounsel$ <> yApCounsel$ Then 

NewHist$= NewHist$ &Chr(010) + "Appearance of Counsel changed to: "+ 
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yApCounsel$ + " from " + 
xApCounsel$ 

update$="Y' 
End If 

If xOwner$ <> yOwner$ Then 

NewHist$= NewHist$ &Chr(010) + "Owner changed to: "+ yOwner$ + " from " + 
\ xOwner$ 

update$="Y 
End If 

If xTransfer$ <> yTransfer$ Then 

NewHist$= NewHist$ &Chr(010) + "Transfer changed to: "+ yTransfer$ + " from " + 

xTransfer$ 

update$="Y" 
End If 
End If 'Pros Copyright 
•Pros TM 

If SubForm$="ProsTM" Then 

If xTMSerial$ <> yTMSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ yTMSerial$ + " 

from " + xTMSerial$ 

update$="Y" 
End If 

If xTMAppType$ <> yTMAppType$ Then 

NewHist$= NewHist$ &Chr(010) + 'Type of Application changed to: "+ 

yTMAppType$ + " from " + 
xTMAppType$ 

update$="V 
End If 

If xTMRApp$ <> yTMRApp$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Applications changed to: "+ yTMRApp$ 

+ " from " + xTMRApp$ 

update$="V 
End If 

If xTMRMatters$ <> yTMRMatters$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Matters changed to: "+ yTMRMatters$ 

+ " from " + xTMRMatters$ 

update$="r' 
End If 

lfxTM$<>yTM$Then 

NewHist$= NewHist$ &Chr(010) + 'Trademark Name changed to: "+ yTM$ + " from 

" + xTM$ 

update$='V 
End If 

If xMark$ <> yMark$ Then 

NewHist$= NewHist$ &Chr(010) + "Mark changed to: "+ yMark$ + " from " + xMark$ 

update$="Y' 
End If 

If xGoods$ <> yGoods$ Then 

NewHist$= NewHist$ &Chr(010) + "Goods/Services changed to: "+ yGoods$ + " 

from " + xGoods$ 

update$="Y' 
End If 

If xClass$ <> yClass$ Then 

NewHist$= NewHist$ &Chr(01 0) + "Classes changed to: "+ yClass$ + " from " + 
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xClass$ 

update$="r' 
End If 

If xTMOwner$ <> yTMOwner$ Then 

NewHist$= NewHist$ &Chr(010) + "Owner changed to: "+ yTMOwner$ + " from " + 

xTMOwner$ 

update$="Y" 
End If 

If xTMPofa$<> yTMPofa$ Then 

NewHist$= NewHist$ &Chr(010) + "Classes (POFA/FA) changed to: "+ yTMPofa$+ 

" from " + xTMPofa$ 

update$="Y" 
End If 

If xFirUse$ <> yFirUse$ Then 

NewHist$= NewHist$ &Chr(010) + "First Use Date changed to: "+ yFirUse$ + " from 

" + xFirUse$ 

update$="Y" 
End If 

If xlSUse$ <> ylSUse$ Then 

NewHist$= NewHist$ &Chr(010) + "First Interstate Use Date changed to: "+ 

ylSUse$ + " from " + xlSUse$ 

update$="Y" 
End If 

If xRIDte$ <> yRIDte$ Then 

NewHist$= NewHist$ &Chr(010) + "Filing Date changed to: "+ yFilDte$ + " from " + 

xFilDte$ 

update$="r' 
End If 

If xTerm$ <> yTerm$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination changed to: "+ yTerm$ + " from " + 

xTerm$ 

update$="Y" 
End If 

If xTDate$ <> yTDate$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination Date changed to: "+ yTDate$ + " 

from " + xTDate$ 

update$="Y" 
End If 

If xHTerm$ <> yHTerm$ Then 

NewHist$= NewHist$ &Chr(010) + "How Terminated changed to: "+ yHTerm$ + " 

from " + xHTerm$ 

update$="Y" 
End If 

If xRewnl$ <> yRewnl$ Then 

NewHist$= NewHist$ &Chr(01 0) + "Renewal changed to: "+ yRewnl$ + " from " + 

xRewnl$ 

update$="Y" 
End If 
End If 'Pros TM 
"Pros Patent 

If Subform$="ProsPatent" Then 
If xClientBill$ <> yClientBill$ Then 

NewHist$= NewHist$ &Chr(010) + "Client Own Billing Number changed to: "+ 

yClientBill$ + " from " + 
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xCIientBili$ 

update$= M Y" 
End If 

If xPlnventor$ <> yPlnventor$ Then 

NewHist$= NewHist$ &Chr(010) + "Inventor changed to: "+ yPlnventor$ + " from " + 

xP lnventor$ 

update$="Y" 
End If 

If xPSerial$ <> yPSerial$ Then 

NewHist$= NewHist$ &Chr(010) + "Serial Number changed to: "+ yPSerial$ + " 

from " + xPSerial$ 

update$="V 
End If 

If xPApType$ <> yPApType$ Then 

NewHist$= NewHist$ &Chr(010) + "Type of Application changed to: "+ yPApType$ 

+ " from " + xPApType$ 

update$="Y' 
End If 

If xPRAppType$ <> yPRAppType$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Applications^) changed to: "+ 

yPRAppType$ + " from " + 
xPRAppType$ 

update$="Y" 
End If 

If xPRMatter$ <> yPRMatter$ Then 

NewHist$= NewHist$ &Chr(010) + "Related Matter(s) changed to: "+ yPRMatter$ + 

" from " + xPRMatter$ 

update$="Y" 
End If 

If xPPofa$ <> yPPofa$ Then 

NewHist$= NewHist$ &Chr(010) + "Classes (POFA, F/A) changed to: "+ yPPofa$ + 

" from " + xPPofa$ 

update$="Y' 
End If 

If xPFileDate$ <> yPFileDate$ Then 

NewHist$= NewHist$ &Chr(010) + "Filing Date changed to: "+ yPFileDate$ + " from 

" + xPFileDate$ 

update$="Y" 
End If 

If xPTermDate$ <> yPTermDate$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination Date changed to: "+ yPTermDate$ 

+ " from " + xPTermDate$ 

update$="Y" 
End If 

If xWhyTerm$ <> yWhyTerm$ Then 

NewHist$= NewHist$ &Chr(010) + "Termination Reason changed to: "+ yWhyTerm$ 

+ " from " + xWhyTerm$ 

update$="V 
End If 

If xPMaint$ <> yPMaint$ Then 

NewHist$= NewHist$ &Chr(010) + "Maintenance changed to: n + yPMaint$ + " from 

" + xPMaint$ 

update$="Y" 
End If 
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If xPPOA$ <> yPPOA$ Then 

NewHist$= NewHist$ &Chr(010) + Tower of Attorney changed to: "+ yPPOA$ + " 

from " + xPPOA$ 

update$="Y" 
End If 
End If 'Pros Patent 

'If the fields have changed, append the changes to the history and set the document 

status to modified 

If update$="Y" Then 

If uidoc.lsNewDoc Then 

Call uidoc.FieIdSetText("Status_1", "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by " + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" — 



&Chr(010) + yhist$) 

End If 
End If 

'Save and close the document 
Call uidoc.Save 
'Run Sub to update children 
If Not uidoc.lsNewDoc Then 

Call SetFields(uidoc.document) 
End If 

Call uidoc.Close 
End Sub 

Sub ProcessProjects 

Set pdoc=db.GetDocumentByUNID(uidoc.FieldGetTextC'MatterDoclD")) 

Set doc = uidoc.document 

Set cltem=doc.GetFirstltem("ProjectCountry") 

FirstCountry$=citem.values(0) 

For x = 1 To Ubound (cltem.values) 

countryname$ = cltem.values(x) 

Set newdoc=db.CreateDocument 

newdoc.Form="Project" 

newdoc.cre_date=Now 

newdoc.PDescrip=uidoc.FieldGetText("PDescrip") 

newdoc.ProjectCountry= countryname$ 

newdoc.ClientDoclD=uidoc.FieldGetText("ClientDoclD") 

newdoc.MatterDoclD=uidoc.FieldGetText("MatterDoclD") 

newdoc.SubType=uidoc.FieldGetText("SubType") 

newdoc.PropClose="yes" 

newdoc.clients_billing=uidoc.FieldGetText("clients_billing") 
newdoc.inventor=uidoc.FieldGetText("inventor") 
'Set the history section 
newdoc.Status_1 ="New" 

newdoc.History="Document Created: "+ Date$+" "+Time$ + " by " + 

Session.CommonUserName 
&Chr(010) 
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'Make the doc a response to the matter doc, save it and update the computed fields 
Call newdoc.MakeResponse(pdoc) 
newdoc.save True, True 
newdoc.ComputeWithForm False, False 
newdoc.save True, True 

'Run Sub to update children maybe not needed because is new doc 
'Call SetFields(newdoc) 
Next x 

'be sure the original project doc is adjusted for only the first country 

Call uidoc.FieldSetText(TrojectCountry", FirstCountry$) 
End Sub 
Sub Initialize 

Set workspace = New NotesUIWorkspace 

Set Session = New NotesSession 

Set db=session.CurrentDatabase 

Set uidoc = workspace. CurrentDocument 
End Sub 
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Field: 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 
No 

@Name([CN]; 

NewClient_Routing); 

No 

NewMatter_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

NewMatteMRouting); 

No 

NewProLRouting 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

NewProj_Routing); 

No 

Patent_Routing 

Names 

New Line 

New Line 

[Not Assigned] . 

Editable 

No 

Disabled 
No 

@Name([CN]; Patent_Routing); 
No 

TM_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; TM_Routing); 
No 

Cpy_Routing 

Names 
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Input Multi- Value Separator(s): 
Display Multi-Value Separator; 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 



New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; Cpy_Routing); 
No 

DLit_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; DLit_Routing); 
No 

CAJRouting 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; CA_Routing); 
No 

Oth_Routing 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; Oth_Routing); 
No 

Patent_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

PatentJRouting_1); 

No 
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Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 



TM_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; TM_Routing_1); 
No 

Cpy_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; CpyJRoutingJ); 
No 

DLit_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; DlitJRoutingJ); 
No 

CA_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; CA_Routing_1); 
No 

Oth_Routing_1 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; Oth_Routing_1); 
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Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi- Value Separator: 



No 

DocketMgr 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 
No 

@Name([CN]; DocketMgr); 
No 

ProAtty 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

ProsRoutePatCpyl 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

DocketMgr 
@Name([CN]; 
ProsRoutePatCpyl); 
No 

ProsRoutePatCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRoutePatCpy3); 
No 

P ros Ro ute P at C py 4 

Names 

Comma 

Comma 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi- Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; 

ProsRoutePatCpy4); 

No 

ProsRouteTMCpyl 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

Docket Mgr 
@Name([CN]; 
ProsRouteTMCpyl); 
No 

ProsRouteTMCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRouteTMCpy3); 
No 

ProsRouteTMCpy4 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 

@Name([CN]; 

ProsRouteTMCpy4); 

No 

ProsRouteTMCpy5 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 



Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Translation Formula: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 

Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 



No 

@Name([CN]; 

ProsRouteTMCpyS); 

No 

ProsRouteCRCpyl 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

DocketMgr 
@Name([CN]; 
ProsRouteCRCpyl); 
No 

ProsRouteCRCpy3 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"Patrick J. Coyne" 
@Name([CN]; 
ProsRouteCRCpy3); 
No 

ProsRouteCRCpy4 

Names 

Comma 

Comma 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@Name([CN]; 

ProsRouteCRCpy4); 

No 

Close 

@Command([FileClose 
Window]); 
Save & Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 

]); . 



9.5 



LotusScript Code: 
(Globals) 

Option Public 

Use "SortingLibrary" 

Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sigh When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 



Routing Slip - Litigation 

LitRout 

03/18/1999 02:21:45 PM 

[Not Assigned] 

Response to Response 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
AH Users 
All Users 

Tempfld 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_type 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterNameNum 
Text 

[Not Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



Editable 
No 

Disabled 

No 

No 

lit_rout_re 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

document 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_author1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

cre_date1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

lilt 

No 

lit_route1_to 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Alias: 

Last Modification: 
Comment: 
Type: _ 



No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 

No 

fin 

No 

lit_route_to 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDIT]; 
"Print Routing Sheets"; "I am 
about to print the routing sheets 
for this Event. Please specify 
the number of copies, the 
default is 2."; "2"; "1" : "2" : "3" : 
"4" : "5" : "6");@lf(result != ""; 
@Command([FilePrint]; result; 



mi. tut. tin. mi. tin. tin. 



; "1 & 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Window]));@PostedCommand([ 

FileCloseWindow]); 

Close 

@Command([FileClose 
Window]);@PostedCommand([ 
FileCloseWindow]); 



Routing Slip - 
ProsecutionCR 

ProsRoutCR 
04/20/1999 02:06:17 PM 
[Not Assigned] 
Document 
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Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



@If(@lsNewDoc; "Prosecution 

Routing Slip"; route Jype + " " + 

ref); 

No 

No 

No 

Yes 

No 

Mo 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
AH Users 
AH Users 

REF1 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text($Ref); 
No 

route_type 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterNameNum 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pros_rout_re 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Cre_date1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_author1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

MM. 

No 

PRoutejl 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

mi 

No 

PRoute_2 

Text 

[Not Assigned] 



Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Editable 
No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

rtn 

No 
c_1 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 

PRoute_3 
Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

nn 

No 

PRoute_4 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 



@Prompt([OKCANCELEDIT];. 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task. Please specify 
the number of copies, the 
default is 4."; "4"; 'T':"2":"3": 

it^it . h^m . tig!! . nytt . 

"8");@lf(result != ""; 
@Command([FilePrint]; result; 

lift. mi. mi. int. mi. tin. itti\ 0 
, , i i . i ) « 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Window]));@PostedCommand(t 

FiteCloseWindow]); 

Close 

FIELD SaveOptions := 
"0";@Command ([FileCloseWind 
ow]); 



Routing Slip - 
Prosecution Pat 

ProsRoutPat 
04/20/1999 02:06:18 PM 
[Not Assigned] 
Document 

@lf(@lsNewDoc; "Prosecution 

Routing Slip"; routejype + " " + 

ref); 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

REF1 

Text 

[Not Assigned] 
Computed 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Wailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



No 

Disabled 
No 

@Text($Ref); 
No 

route_type 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Matte rISIameN urn 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pros_rout_re 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Cre_date1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_author1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 



Text 

[Not Assigned] 

Computed 

No 

Disabled 

No 

mi 

No 

PRoute_1 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

mi 

No 

PRoute_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

MM 

No 
c_1 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

mi 

No 

PRoute 3 



Datatype: 

Input Multi-Value Separator(s): 
Display^Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None]. 



Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 

No 

tin 

No 

PRoute_4 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDIT]; 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task. Please specify 
the number of copies, the 
default is 4."; "4"; "1":"2":"3": 

"8");@lf(result != ""; 
@Command([FilePrint]; result; 

tin. mm. mi. im. mi. int. mix o 
i i » t i i ) 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Window]));@PostedCommand([ 

FileCloseWindow]); 

Close 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 
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Name: 

Alias: 

Last Modification: 

Comment: 

Type: 

Window Title Formula: 



Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



Routing Slip - 
ProsecutionTM 

ProsRoutTM 
04/20/1999 02:06:18 PM 
[Not Assigned] 
Document 

@lf(@IsNewDoc; "Prosecution 
Routing Slip"; routejype + " " + 

ref); 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

REF1 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Text($Ref); 
No 

route_type 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ClientNameNum 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterNameNum 

Text 
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Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pros_rout_re 

Text"" 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Cre_date1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

route_author1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
a 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

III! 

No 

PRouteJ 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
b 

Text 

[Not Assigned] 

Computed 

No 



Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 



Disabled 
No 

Mil 

No 

PRoute_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
c 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 
c_1 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

fin 

No 

PRoute_3 

Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
d 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Mil 

No 

PRoute_4 

Text 

New Line, Blank Line 
Blank Line 
[Not Assigned] 



Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Editable 
No 

Disabled 
No 
No 
e 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

No 

PRoute_5 
Text 

New Line, Blank Line 

Blank Line 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Routing Sheets 

result := 

@Prompt([OKCANCELEDIT]; 
"Manual Routing"; "I am about 
to print the routing sheets for 
this Event/Task. Please specify 
the number of copies, the 
default is 4."; "4"; "1" : "2" : n 3 w : 

"8");@lf(result != ""; 
@Command([FilePrint]; result; 

nit. nti. im. mi. mi. mi. mrv o 
» _? i i » i J ** 

@Command([FileCloseWindow] 

); 

@PostedCommand([FileClose 

Window]));@PostedCommand([ 

FileCloseWindow]); 

Close 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 



Name: 

Last Modification: 
Comment: 



Task 

07/28/1999 10:03:32 AM 
[Not Assigned] 
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Type: 

Window Title Formula: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 



Response to Response 

@lf(@lsNewDoc; "New Task"; 

Task + "-" + Task); 

No 

Yes 

No 

Yes 

No 

No 

Yes 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

CHentDocID 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; CHentDocID; 

@GetDocField($Ref; 

"CHentDocID")); 

No 

MatterDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterDocID; 

@GetDocField($Ref; 

"MatterDocID")); 

No 

ProjectDocID 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; ProjectDocID; 

@GetDocField($Ref; 

"ProjectDocID")); 

No 

EventDocID 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; EventDocID; 

@GetDocField($Ref; 

"EventDocID")); 

No 

PropClose 
FormName 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Task" 
No 

clients_billing 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref; 

"clients_billing")); 

No 

inventor 

Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor; 

@GetDocField($Ref; 

"inventor)); 

No 

PComments 
Text 

Comma, Semicolon 

Semicolon 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; PComments; 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type- 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 



@GetDocField($Ref; 

"PComments")); 

No 

Cfient_Name 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client_Name 
No 

Client_No 

Text. 

[Not Assigned] 

Computed 

No 

Disabled 
No 

ClientJMo 
No 

MatterJMame 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; MatterJMame; 

@GetDocField(MatterDoclD; 

"MatterJJame")); 

No 

MaftterJMo 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@lsNewDoc; Matter_No; 

@GetDocField(MatterDoclD; 

"Matter_No")); 

No 

Project 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Project 
No 
Task 
Text 
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Help Description: 
Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Time Format: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface; 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

cre__date 
cre_date_d 

Time 

11/03/1999 
[Not Assigned] 
Computed for display 
No 

Disabled 
No 

cre_date 
No 

Task Date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

PDescrip 
resp_atty 
resp_atty_1 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(@Contains(resp_atty; T); 
@Right(resp_atty; T) + " " + 
@Lett(resp_atty; T); resp_atty); 
No 

lit_route_ev 

Names 
New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Next_Action 

Keywords 
[Not Assigned] 
Editable 
Standard 
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Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



No 
No 

Disabled 

No 

No 

NextActionBy 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Aetion_Date 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

DateComplete 

Time 

11/03/1999 05:36:18 PM 
[Not Assigned] 
Editable 
No 

D isabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@If(Priority = "~ Select -"; 
@Failure("Please designate 
priority."); ©Success); 
No 

Status 

Text 

[Not Assigned] 

Computed 

No 

Disabled 



Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



No 

@lf(TEArchive = "no" | 
TEArchive = ""; "Open"; 
"Completed"); 
No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

trakjd 

Text 

[Not Assigned] 

Computed when composed 

No 

Disabled 
No 

©Unique 
No 

Summary 

Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

No 

Untitled_Section_1 

Section 
Comma 

Responsible Attorney 

Certificate: 

Computed 

No 

Disabled 
No 

resp_atty 



Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 

ProtectFromArchive 

TEDateComplete 

RA_Sig 

Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

RA_Sig 
No 

Untitled_Section2 

Section 
Comma 

IP Docket Manager Certificate: 

Computed 

No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 

Time 

11/03/1999 
[Not Assigned]. 
Editable 
No 

Disabled 

No 

No 

IPD_Sig 

Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

IPD_Sig 
No 

TEArchive 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

RACIosed 

Text 

[Not Assigned] 
Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Action: 

Formula: 



Action: 
Formula: 



Action: 

Formula: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
% INCLUDE "Isconst.lss" 
Public xTask$ 
Public xAtty$ 
(Form) Task 

Sub Postopen(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextfPropClose", "Open") 



No 

Disabled 
No 
"no" 
No 

UnHideRA 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

UnHideDM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

Status_1 

History 

Close 

@Command([FileClose 
Window]); 
Cancel 

FIELD SaveOptions := 

"0";@Command([FileCloseWind 

ow]); 

Edit 

@Command([EditDocument]); 
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End If 

xTask$=uidoc.FieldGetText("Task") 
xAtty$=uidoc.FieldGetText("resp_atty") 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

If uidoc.EditMode=True Then 

Call uidoc.FieldSetTextfPropCIose", "Open") 

End If 
End Sub 

Sub Querysave(Spurce As Notesuidocument, Continue As Variant) 
Dim session As New NotesSession 
Dim db As NotesDatabase 
Set db=session.CurrentDatabase 
Dim workspace As NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
PropClose$=source.FieldGetText(TropClose") 
If PropClose$o"Closed" Then 

Ok%=Messagebox("You must use the Save and Close button to save your work or use 

the Cancel button to abort your 
changes!",0+48+0+0,"ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End If 
End Sub 

Sub Queryclose(Source As Notesuidocument, Continue As Variant) 
End Sub 

(Button) Close and Archive Event 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Define some variables 
ActionHist$=uidoc.FieldGetText("Archive") 
OldAction$=uidoc.FieldGetText("Next_Action") 
Due$=uidoc.FieldGetText("DateDue") 
Complete$=uidoc.FieldGetText("DateComplete") 
TraklD$=uidoc.FieldGetTextnrakjd") 
Sum$=uidoc.FieldGetText("Summary") 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + 'Tracking ID: " + TraklD$ 

&Chr(010) +"Due on: " + Due$ 
&Chr(010) + "Closed on:" + 
Complete$ &Chr(01 0) + Sum$ 
&Chr(010) + "Certified closed 
by" + 
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Session. CommonUserName 

'Append the closed action to the Archive 
lfOldAction$=""Then 

Ok%=Messagebox("There is no Action to close! ,, l O+48+0+0 I "ERROR") 
If Ok%=1 Then 

Exit Sub 
End If 
End If 

lfComplete$= ,m Then 

Ok%= Messagebox("You must specify a completion date!",0+48+0+0, "ERROR") 

lfOk%=1Then 
Exit Sub 

End If 
End If 

lfSum$="" Then 

Ok%=Messagebox("You must provide a summary of action 

taken!",0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If 
End If 

'Certify that the action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed." I 4+32+0+0, 
"Action Review Certification") 

IfYesOrNo%=6Then 

Call uidoc.FieldSetText ("Archive", NewActionHist$ &Chr(010) +"- 



&Chr(010)+ActionHist$) 

' Clear the subform for a new entry 

Call uidoc.FieldSetText("Next_Action","") 

Call uidoc.FieldSetText("DateDue","") 

Call uidoc.FieldSetText("Prio^ity"," , ) 

Call uidoc.FieldSetText("Hours","") 

Call uidoc.FieldSetText("NextActionBy","") 

Calluidoc.FieldSetText("DateComplete","") 

Call uidoc.FieldSetText("Status","On Going") 

Call uidoc.FieldSetTextnrakjd","") 

Calluidoc.FieldSetText("Summary","") 
End If 
End Sub 
(Button) Close This Task 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU (Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As NotesView 
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Dim YesOrNo As Integer 
Dim OkCancel As Integer 

YesOrNo=Msgbox("Are you sure you want to close this Task?", MBJ/ESNO + 

MBICONQUESTION + 
MBJDEFBUTTON2 + 
MB_APPLMODEL, "Close 
Task?' 1 ) 

If yesOrNo=IDNO Then 

Exit Sub 
End If 

'Unhide the closure info 

Call uidoc.FieldSetText("UnHideRA", "yes") 

Call uidoc.FieldSetText("RA_Sig", session.CommonUserName) 

Call uidoc.RefreshHideFormulas 

Call uidoc.Refresh 

'Get some data from the base document and set the variables 

yAtty$=uidocPie!dGetText("resp_atty") 

Project$=uidoc.FieldGetText("Project") 

Client$=uidoc.FieldGetText("Client_Name") 

ClientNo$=uidoc.FieldGetText("ClienLNo") 

Matter$=uidocPieldGetTextC'MatterjSlame'^ 

MatterNo$=uidoc.FieldGetText("Matter_No") 

TaskName$=uidocPieldGetText("Task") 

People$=uidoc.FieldGetTextClit - route_ev") 

Sig$=uidoc.FieldGetText("RA_Sig") 

EDate=uidoc.FieldGetText( , TEDateCompIete") 

Ref$=uidoc.FieldGetText("Task") 

'Do some field validation 

If Sig$="" Or EDate="" Then 

Goto Bailout2 
End If 

'Lets check the sig to make sure it is the RA 
If Sig$ <> yAtty$ Then 

Ok%=Messagebox("The name in the Responsible Attorney Certificate Signature field 

in incorrect." &_ 

" Only the Responsible Attorney may close this task!",0+48+0+0,"lncorrect 

Information") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Electronically route the info to the default profile and the docket manager 

Set maildoc = New NotesDocument(db) 

maildoc.Form-'MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Project$="Prosecution: Patent" Or Project$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Project$ 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 
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maildoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetText("lit_^oute_ev ,, ) 
Case "Other 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject-Task Closure Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + CIient$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [' + MatterNo$ + "J" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Project$ + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "Task 

Completion",MaiIdoc) 

IfFlag=True Then 

Set item=maildoc.GetFir5tltem("EditTxt ,, ) 

rtStyle.bold=False 

Call rtibody.AppendStyie(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (Text) 

Call rtibody.AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task >" 

.AppendDocLink uidoc.document,"" 
AddNewLine 2 
.AppendText AddCmt$ 



End With 

maildoc.EditTxt="" 
maildoc.Form-'Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 

'End If 'message to default group 

'Find out if we need to notify the Docket Manager 

YesOrNo%=Messagebox("Does this Task require notification of the Docket Manager and 

removal from the 
Docket?",4+32+0+0, "Remove 
From Docket?") 

lfYesOrNo%=7Then 

Call uidoc.FieldSetText("RACIosed", "yes") 
Call uidoc.Fie!dSetText('TEArchive", "yes") 
Call uidoc.FieldSetText("Status", "Completed") 

Call uidoc.FieldSetText("IPD_Sig", "Removal from Docket not required") 
Call uidoc.FieldSetText("DocDateComplete", Format(TEDateComplete, "Short Date")) 
Call uidco.FieldSetText("UnHideDM", "yes") 
Goto SaveAndClose 
End If 

'Notify the docket manager 
maildoc.Form="Mai!Not" 
maildoc.SendTo-"' 
maildoc.body-'" 

maildoc.Subject-Task Closure Notification" 

maildoc.SendTo=doc.DocketMgr 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maiidoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [' + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "Please remove any reference to this task from the docket." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "Task 

Completion",maildoc) 
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If Flag=True Then 

Set item=maildoc.GetFirstltem( ,, EditTxt M ) 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody.AddNewLine(1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maildoc.EditTxt=="" 
maildoc.Form-'Memo" 
maildoc.HoidTxt="" 
Call maildoc.Send(False) 
End If 

Ok%=Messagebox( f This Task will be removed from the Active view when the Docket 

Manager has removed it from 
the docket.",0+64+0+0, 
"Closure Successful") 

lfOk%=1Then 

Call uidoc.FieIdSetText("RACIosed", "yes") 

Goto SaveAndClose 
End If 
'Else 

'Goto bailout 
Bailout: 

, Ok%=Messagebox("No Notifications required for this Task Closure. " & _ 
"This Task will be removed from the Active view when the Docket Manager has 

removed it from the docket. 

",0+64+0+0,"Closure 

Successful") 

'lfOk%=1 Then 

•Call uidoc.FieldSetText("RACIosed", "yes") 
•Goto SaveAndClose 
•End If 
Bailout2: 

Ok%=Messagebox("Please enter a Closing Date for the Task and press the •Close This 

Task' or 'Remove From Docket' 
button 

again!" f O+32+0+0,"Required 
Information") 

lfOk%=1 Then 

Exit Sub 
End If 
'End If 

'Start saving and closing the document for the last time. Do it here to avoid pressing the 

save/close button . 

SaveAndClose: * 
'Get some final values 
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yTask$=uidoc.FieldGetText("Task") 
yAtty$=uidoc.FieldGetText("resp_atty") 
TEDateComplete=uidoc.FieldGetText("TEDateComplete") 
'Define some other variables 
yhist$=uidocPieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc. FieidSetText("PropClose", "Closed") 
'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

lfxAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 

If TEDateComplete <> "" Then 

NewHist$ = NewHist$ &Chr(010) + "The Task was marked closed as of" + 

Format(TEDateComplete, 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 

Call uidoc.FieldSetText("Status _1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" 



"&Chr(010) 

+ yhist$) 

End If 

'Save and close the document 

Call uidoc.Save 

Call uidoc.Close 
End Sub 
(Button) Remove from Docket 
Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace.CurrentDocument 

Dim Session As New NotesSession 

Dim view As Notes View 

Dim routdoc As NotesDocument 

Set db=session.CurrentDatabase 

Sig$=uidoc.FieldGetText("IPD_Sig") 

EDate=uidoc.FieldGetText("DocDateComplete") 

'Unhide the closure info 

Call uidoc.FieldSetText("UnHideDM", "yes") 

Call uidoc.FieldSetText("IPD_Sig", Session.CommonUserName) 

Call uidoc.RefreshHideFormulas 



124 



Call uidoc. Refresh 

'Do some field validation 

lfSig$=""OrEDate=""Then 

Ok%=Messagebox("Please provide a completion date for your action!" ,0+32+0+0, 

"Required Information") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Lets check the sig to make sure it is the Docket Manager 
Set view = db.GetView( "(Routing Profile)" ) 
Set routdoc = view.GetFirstDocument 
If Sig$ <> routdoc.DocketMgr(O) Then 

Ok%=Messagebox("The name in the Docket Manager Certificate Signature field in 

incorrect." &_ 

" Only the Docket Manager may remove this Task from the 

Docket!",0+48+0+0,"lncorrect 
Information") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Set these fields to close the document 
Call uidoc.FieldSetTextCTEArchive", "yes") 
Call uidoc.FieldSetText("Status", "Completed") 
Call uidoc.FieldSetTextfPropClose", "Closed") 

Messagebox 'This Task has been closed and removed from the docket. It will be now be 

removed from the Active views." 
,0+64+0+0,"Closure Successful" 

'Start saving and closing the document for the last time do it here to avoid pressing the 

save/close button 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FieldGetText("resp_atty") 

DocDateComplete=uidoc.FieldGetTextC'DocDateComplete") 

'Define some other variables 

yhist$=uidoc.FieldGetTextC'History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(01 0) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

lfxAtty$ <>yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 

If DocDateComplete <> "" Then 

NewHist$ = NewHist$ &Chr(010) + "The Task was removed from the docket on " + 

Format(DocDateComplete,' 
"Short Date") 
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update$="Y" 
End If 

'Append the new changes .to the History 

If update$="Y" Then 

Call uidoc.FieldSetText("Status J "/'Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) 



" &Chr(010) 

+ yhist$) 

End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.Close 
End Sub 
(Action) Route via Email 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim doc2 As NotesDocument 
Dim maildoc As NotesDocument 
Dim view As NotesView 

'Get some data from the base document and set the variables 

yAtty$=uidocPieldGetText("resp_atty") 

Project$=uidoc.FieldGetText("Project") 

Client$=uidoc.FieldGetText("ClienLName") 

Matter$=uidoc.FieldGetText("Matter_Name") 

MatterNo$=uidoc.FieldGetTextCMatter_No") 

People$=uidoc.FieldGetText("lit_route_ev ,, ) 

Sender$=Session.CommonUserName 

Ref$=uidoc.FieldGetText("PDescrip") 

'Electronically route the info to the default profile and the attorney 
'If uidoc. IsNewDoc Or xAtty$<>yAtty$ Then 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Project$="Prosecution: Patent" OrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Projects 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maiidoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetText("lit_route - ev , 7 
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Case "Counselling and Advice" 

maildoc.SendTo=uidoc.FieldGetText("liLroute_ev") 
Case "Other 

'maildoc.SendTo=uidoc.FieldGetText("liLroute_ev") 
End Select 

maildoc.CopyTo=Sender$ f 
maildoc.Subject="New Task Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + T 
.AddNewLine 2 

.AppendText "Please note that a new Task has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
^AddNewLine 2 

.AppendText yAtty$ +" has been assigned as the responsible attorney for this Task." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With f rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New Task 

Notification",Maildoc) 

lfFlag=True Then 

Set item=maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtibody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (Text) 

Call rtibody. AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maildoc.EditTxt="" 
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maildoc.Form-'Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 'dialogbox for message to default group 
'End If 

'Notify the responsible attorney 
'If uidoc. lsNewDocOrxAtty$<>yAtty$ Then 
maildoc.Form-'MailNot" 
maildoaSendfo-'" 
maildoc.body="" 
maildoc.SendTo=yAtty$ 
maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a new Task has been created for the " + Projects + " 

project for the referenced Client 
and Matter." 

.AddNewLine 1 

.AppendText 'The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "You have been designated the responsible attorney for this Task." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoIdTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "New Task 

Notification",maildoc) 

lfFlag=True Then 

Set item=maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody. AddNewLine(l) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 
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mai!doc.EditTxt="" ' 

maildoc.Form-'Memo" 

maildoc.HoldTxt="" 

Call maildoc.Send(False) 
End if 
•End If 
'End If 
End Sub 
(Action) Manually Route 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesU Document 
Dim uidoc2 As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim Routdoc As NotesDocument 
Dim view As NotesView 
Dim itemt As Notesltem 
Dimitem2As Notesltem 
Dim nn As NotesName 
'Get project and form type 
Project$=uidoc.FieldGetText("Project") 
Form$=uidoc.FieldGetText( n FormName") 
•Set the project type 
Select Case Projects 
Case "Prosecution: Patent" 

rt$="Patent Task Routing Slip" 

RoutForm$="ProsRoutPat" 
Case "Prosecution: Trademark" 

rt$-Trademark Task Routing Slip" 

RoutForm$="ProsRoutTM" 
Case "Prosecution: Copyright" 

rt$="Copyright Task Routing Slip" 

RoutForm$="ProsRoutCR" 
Case "Litigation" 

rt$="Litigation Task Routing Slip" 
Case "Counselling and Advice" 

rt$="C&A Task Routing Slip" 
Case "Other" 

rt$="Other Task Routing Slip" 
End Select 

'Get some general doc info from form 

Att$=uidocPieldGetText("resp_atty") 

Client$=uidoc.FieldGetText("Client_Name") 

ClientNo$=uidoc.FieldGetText("Client_No") 

MatterName$=uidoc.FieldGetTextC , Matter_Name") 

MatterNo$=uidoc.FieldGetTextCMatter_No") 

Ref$=uidoc.FieldGetText("PDescrip") 

'Check for conditions, save the Task form and bring up the correct manual routing form 
If Form$="Task" And (Project$="Prosecution: Copyright" Or Project$="Prosecution: 

Patent" Or 
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Project$="Prosecution: 
Trademark") Then 

Call uidoc.Reload 

'Get some routing information from the profile 
Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
If RoutForm$="ProsRoutPat" Then 

Set item1=doc.GetFirstltem("ProsRoutePatCpy1 ") 

Set ltem3=doc.GetFirstltem("ProsRoutePatCpy3") 

Set ltem4=doc.GetFirst!tem("ProsRoutePatCpy4") 
End If 

If RoutForm$="ProsRoutTM" Then 

Set item! =doc.GetFirstltem("ProsRouteTMCpy1 ") 

Set ltem3=doc.GetFirstltem("ProsRouteTMCpy3") 

Set ltem4=doc.GetFirstltem("ProsRouteTMCpy4") 

Set ltem5=doc.GetFirstltem("ProsRouteTMCpy5") 
End If 

If RoutForm$="ProsRoutCR" Then 

Set iteml =doc.GetFirstltem("ProsRouteCRCpy1 ") 

Set Item3=doc.GetFirstltem("ProsRouteCRCpy3") 

Set ltem4=doc.GetFirstltem("ProsRouteCRCpy4") 
End If 

'Create the routing document and populate the distribution 
Set Routdoc = db.CreateDocument 
Routdoc.Form=RoutForm$ 

Routdoc.PRoute_1 = iteml .values 'Always the docket 
Routdoc.PRoute_2=Atti$ 'Always the resp attorney 
'Populate the Patent routing other distro fields 
If RoutForm$="ProsRoutPat" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3", "") 

Forall x In Item3.values 

Tgtltem.AppendToTextList x + " __"+ Chr(010) 

End Forall 

Set Tgtltem=New Notesitem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

Tgtltem.AppendToTextl_ist x + " "+ Chr(010) 

End Forall 
End If 

'Populate the Trademark routing distro 
If RoutForm$="ProsRoutTM" Then 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_3'\ "") 

Forall x In Item3.values 
. Tgtltem-AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4", "") 
Forall x In Item4.values 

Tgtltem.AppendToTextList x + " "+ Chr(01 0) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute^S", "") 
Forall x In ItemS.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 
End If 

If RoutForm$="ProsRoutCR" Then 



Set Tgtltem=New Notesltem(Routdoc, M PRoute_3", "") 
Forall x In Item3.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 

Set Tgtltem=New Notesltem(Routdoc, "PRoute_4 n , "") 
Forall x In Item4.values 

Tgtltem.AppendToTextList x + " "+ Chr(010) 

End Forall 
End If 

'Fill in the other info on the routing doc 

Routdoc.pros_routjre=Ref$ 

Routdoc.route_type=rt$ 

Routdoc.ClientNameNum="Client: " + Client$ + " - " +ClientNo$ 
Routdoc.MatterNameNum= M Matter: " + MatterName$ + " - " + MatterNo$ 
Routdoc.cre_date1 =Now 

Routdoc.route_author1=session.CommonUserName 
Set uidoc2=workspace.EditDocument(False, Routdoc, False) 
'Handle the Litigation and Other Routing Events 

Elseif Form$=*Task" And (Project$="Counselling and Advice" Or Project$="Other Or 

Project$="Litigation") Then 

Call uidoc.Reload 

'Get some specific form info 

RouteType$=Project$ + " Task Routing Slip" 

LitRout$=uidoc.FieldGetText('Task") 

'Create the routing document and populate it 

Set Routdoc = db.CreateDocument 

Routdoc.Form- 'LitRout" 

Routdoc.CIientNameNum-'Client: " + Client$ + " - " + ClientNo$ 
Routdoc.MatterNameNum="Matter: " + MatterName$ + " - " +MatterNo$ 
Routdoc.lit_rout_re=LitRout$ 
Routdoc.document=ref$ 

Routdoc.route_author1 =session.CommonUserName 

Routdoc.cre_date1 =Now 

Routdoc.lit_route1_to=Att$ 

Routdoc.Route_Type= RouteType$ 

'Process routing info from Event/Task form 

Set doc=uidoc.document 

Dim RegName 0 As String 

Set iteml =doc.GetFirstltem("Iit_route_ev") 

Choices=item1 .values 

Redim RegName (Ubound (Choices)) 

counter=0 

Forall temp In Choices 

Set nn = New NotesName(temp) 

RightName$= nn. Common 

RegName(counter)=RightName$ +" " 

counter=counter+1 
End Forall 

Set Tgtltem=New Notesltem(Routdoc, "lit^routejo", RegName) 
Set uidoc2=workspace.EditDocument(False, Routdoc, False) 
Else 

Messagebox "There is no manual routing for this Event or Task.",0+1 6+0+0 
End If 'Man Routing 
End Sub 
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(Action) Save & Close 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim theAgent As NotesAgent 

'Define the the counterpart y variables for those x variables in postopen 
yTask$=uidoc.FieldGetText("Task") 
yAtty$=uidoc.FieldGetText("resp_atty M ) 
TEDateComplete$=uidoc.FieldGetTextCTEDateComplete") 
TEDate%=Len(TEDateComp!ete$) 

DocDateComplete$=uidoc.FieldGetText("DocDateComplete") 

DocDate%=Len(DocDateComplete$) 

'Grab values to check for a bad Task Closure 

RASig$=uidoc.FieldGetText("RA_Sig") 

DSig$=uidoc.FieIdGetText("IPD_Sig") 

UnHideRA$=uidoc.FieldGetText("UnHideRA") 

UnHideDM$=uidoc.FieldGetText("UnHideDM M ) 

RACIosed$=uidoc.FieldGetText( H RAClosed") 

TEArchive$=uidoc.FieldGetText("TEArchive ,, ) 

'Before we do anything, Check for a bad task closure 

If RASig$="" Or TEDate% < 1 Then Notcomplete$="yes" Else Notcomplete$="no" 
If Notcomplete$=UnHideRA$ Then 

Ok%=Messagebox("You have attempted to close this Task without properly completing 

the Closure Certificate. 
"Please provide the required closure information or use the 'Cancel' button to abort 

your changes 
!",0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

If DSig$="" Or DocDate% < 1 Then Notcomplete$= "yes" Else NotcompIete$="no" 
If Notcomplete$= UnHideDM$ Then 

Ok%=Messagebox("You have attempted to remove this Task form the docket without 

properly completing the Closure 
. Certificate. " 

"Please provide the required closure information or use the 'Cancel' button to abort 

your changes 
!",0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

lfRACIosed$="no"Then 
If UnHideRA$= "yes" Then 

Ok%=Messagebox("Please Finish closing the task by pressing the 'Close This Task' 

button again." 
,0+48+G+0,"ERROR") 

lfOk%=1 Then 
Exit Sub 
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End If 
End If 
End If 

lfTEArchive$="no" Then 
lfUnHideDM$= "yes" Then 

Ok%=Messagebox("Please Finish closing the task by pressing the 'Remove From 

Docket' button again." 
,0+48+0+0,"ERROR") 

lfOk%=1Then 

Exit Sub 
End If 
End If 
End If 

'Define some other variables 
yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetTextf'PropClose", "Closed") 
'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$='Y" 
End If 

If xAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$='Y" 
End If 

'Append the new changes to the History 
lfupdate$='Y" Then 
If uidoc.lsNewDoc Then 

Call uidoc.FieldSetText("Status_1", "New") 

Call uidoc.FieldSetText ("History", "Document Created: " + Date$+" "+Time$ + " 

by " + 

Session.CommonUserName 
&Chr(010)) 

Else 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +"-- — 



&Chr(010) + yhist$) 

End If 
End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.Close 
End Sub 

Name: (Archive Log) 

Alias: Archive Log 

Alias: ArchiveLog 
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Last Modification: 


03/18/1999 02:21:51 PM 


Comment: 


[Not Assigned] 


Type: 


Document 


Window Title Formula: 


"Archive Log" 


Include in Compose Menu: 


No 


Include in Query by Form: 


No 


Default Database Form: 


No 


Automatically Refresh Fields: 


No 


Mail New Documents When Saving: 


No 


Store Form In Documents: 


No 


Inherit Default Field Values: 


No 


Updates Become Responses: 


No 


Retain Prior Versions As Responses: 


No 


Activate Objects When Composing: 


No 


Activate Objects When Editing: 


No 


Activate Objects When Reading: 


No 


Document Encryption Keys: 


[None Assigned] 


Composed Documents May Be Read By: 


All Users 


Form May Be Composed By: 


All Users 


Subcomponents: 




Field: 


$MessageType 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed when composed 


Sign When Mailing/In Section: 


No 


FncrvDtion* 


Disabled 


Uodate Reauires Editor Access* 


No 


Formula* 


"Loq" 


Is Scripted: 


No 


Lavout Reaiorr 




Show Border: 


No 


Three Dimensional Style: 


Yes 


Show Grid: 


No 


Snap to Grid: 


No 


Grid Size: 


72 


Field: 


FieldA_Disp 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Computed for display 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Formula: 


"Archive Log" 


Is Scripted: 


No 


Field: 


LogCount 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


LogTotal 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Action: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ArchiveDate 

Time 

11/03/1999 05:36:18 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 
No 
Body 
No 

Archive Trailer 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

ArchiveTrailer 
No 

Subject 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Archive Log for " + 

@Text(ArchiveDate); 

No 

Categories 
Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

"(Archive)" 
No 

Close 



135 



Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 



Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



@PostedCommand([Fil 
eCloseWindow]); 



(BusinessAddress 
Helper) 

03/18/1999 02:21:51 PM 

[Not Assigned] , 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 

Yes 
No 
Yes 
72 

StreetAddress 
Text 

Street address. 

Editable 

No 

Disabled 
No 

@Trim(StreetAddress_1); 

No 

City 

Text 

City or town name. 

Editable 

No 

Disabled 
No 

@Trim(City_J); 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



No 

State 
Text 

State or province name. 1 

Editable 

No 

Disabled 
No 

@Trim(State_1); 

No 

Zip 

Text 

Enter the ZIP or postal code. 

Editable 

No 

Disabled 
No 

@Trim(Zip_1); 
No 

Country 

Keywords 

Person's home country. 

Editable 

Standard 

No 

United States (US) 
Afghanistan (AF) 
Africa (OA) 
ALbania (AL) 
ALgeria (DZ) 
Andorra (AD) 
Angola (AO) ' 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
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Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 

Brunei (BN) 

Bulgaria (BG) 

Burundi (Bl) 

Cambodia (CB) 

Canada (CA) 

Cape Verde Islands (CV) 

Cape Verde (CV) 

Cayman Islands (KY) 

Central African Republic (CF) 

Chad (TD) 

Chile (CL) 

China (CN) 

Colombia (CO) 

Congo (CG) 

Costa Rica (CR) 

Croatia (HR) 

Cuba (CU) 

Cyprus (CY) 

Czech Republic (CZ) 

Denmark (DK) 

Djibouti (DJ) 

Dominica (DM) 

Dominican Republic (DO) 

Ecuador (EC) 

Egypt (EG) 

El Salvador (SV) 

England (GB) 

Eritrea (ER) 

Estonia (EE) 

Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadia (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 
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Guernsey (GS) 
Guinea (GN) 
Guyana (GY) 
Haiti (HT) 
Honduras (HN) 
Hong Kong (HK) 
Hungary (HU) 
Iceland (IS) 
India (IN) 
Indonesia (ID) 
International (WO) 
Iran (IR) 
Iraq (IQ) 
Israel (IL) 
Italy (IT) 
Ivory Coast (CI) 
Jamaica (JM) 
Japan (JP) 
Jersey (JE) 
Jordan (JO) 
Kazakhstan (KZ) 
Kenya (KE) 
Kiribati (Kl) 
Kuwait (KW) 
Kyrgystan (KG) 
Laos (LA) 
Latvia (LV) 
Lebanon (LB) 
Lesotho (LS 
Liberia (LR) 
Libya (LY) 
Lichtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv (MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 



Nepal (NP) 
• Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaraguia (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 
Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru(PE) 1 
Phillippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 
Ras-al-Khaimah (RK) 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah (SB) 
San Marino (SM) 
Sarawak (SJ) 
Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
St. Christopher (CP) 
St. Helena (SH) 
St. Kitts-Nevis (KN) 
St. Lucia (LC) 
St. Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Tajikistan (TJ) 
Tangier (TI) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Transkei(TE) 
Trinidad (TT) 
Tunisia (TN) 
Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Volta (BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin Islands (VI) 
West Bank (WB) 
Western Samoa (WS) 
World (WO) 

Yemen Democratic Republic 
(YD) 

Yemen North (YE) 
Yugoslavia 
Zaire (ZR) 
Zambia (ZM) 
Zanzibar (ZZ) 
Zimbabwe (ZW) 
No 

Disabled 
No 

@Trim(Country_1); 
No 

Contact_Address 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != & StreetAddress 
!= WM ; @NewLine + City; City) + 
@lf(State !=""&City != ""; - "; 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
JavaScript & HTML Code: 

. [None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



"") + State + ■ " + Zip); 
No 

AssoAddress 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(StreetAddress + 
@lf(City != & StreetAddress 
!= ""; ©NewLine + City; City) + 
@lf(State != & City != ""; "; 
"") + State + - " + Zip); 
No 



(ClientMatterReporttest) 

03/18/1999 02:21:52 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

FormName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

RptName 

Text 

[Not Assigned] 

Editable 

No 
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Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type:. 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



Disabled 

No 

No 

client 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes 

Text 



Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatteM 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDate_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatter_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: ....... No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyDate_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyK/latterJJ 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BodyMatter_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_5 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_5 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_5 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyName_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_7 
Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_8 

Text ' 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No . 
No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
. Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyMatter_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJO 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_11 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatterJ 1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDatejM 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_11 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyNameJ2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatterJ 2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDate_12 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyDes_12 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_13 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJ3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_14 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_J4 

Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
. Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_15 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatterJS 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_15 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_15 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyName_16 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatteM6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_16 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Bodybes_16 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Body Date Jl 7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula- 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: ' 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: , 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 
No 

BodyDesjl7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

NextPage 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"No" 
No 

Client2 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client 
No 

BodyName_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDatejl8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_18 

Text 



Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_19 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatterJ 9 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDate_19 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_19 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatter_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyDate_20 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_20 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_22 
Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BodyMatter_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_23 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_23 

Text 

[Not Assigned] 
Editable 
No . 

Disabled 

No 

No 

BodyDate_23 

Text 

[Not Assigned] 
Editable ' 
No 

Disabled 

No 

No 

BodyDes_23 
Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName_24 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyMatter_24 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDate_24 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_24 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName_25 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyMatter 25 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDate_25 


Datatype: 


Text 



Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_25 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName_26 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyMatter_26 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDate_26 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_26 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName_27 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyMatter_27 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_27 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_27 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_28 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_28 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_28 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_28 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BodyName_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_30 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_30 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatter_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDate_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access:' No 

Is Scripted: No 

Field: BodyDes_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_32 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyMatter_32 

Datatype: Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
IsScripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_32 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_32 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_33 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyName_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyMatter_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDate_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 



No 
No 

BodyDes_35 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Report 

@Command([FilePrint]); 
Save and Close 



Field: 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Action: 



Formula: 



Action: 



Formula: 



■V52 

]); 



@Command([FileSave]) 
;@Command([FileCloseWindow 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As NotesView 
uidoc.Editmode=False 
Set doc=uidoc.document 
id$=doc.Universalid 
Call uidoc.closeO 

Setview=db.GetView( H AIIDocsByUNID") 
Set doc=view.GetDocumentByKey(id$, True) 
doc.remove(True) 

Set view=db.GetView( ,, (AIIReports) ,, ) 
Call view.refreshO 

End Sub 
(Action) Close-Discard Edits 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NoteslllDofcument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If flag=True Then 



uidoc.Editmode=False 
End If 

Call uidoc.closeO 
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End Sub 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form; 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



(ClientMatterReport) 

03/18/1999 02:21:52 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

FormName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

RptName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

client 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_1 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_1 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDesjl 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_2 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_3 

Datatype: Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype- 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: - 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: - 



BodyDes_4 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_5 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_5 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_6 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_6 
Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description: 
Field Type: 
' Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BDate_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_7 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_8 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption- 
Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BMat_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_8 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No • 
No 

BodyName_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_9 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_9 

Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
IsScripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_10 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDateJO 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDesjIO 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_11 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMatjM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BDatejM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_1 1 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_12 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_12 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_12 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDesjl2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_13 

Text 

[Not Assigned] 
Editable 
No ' 
Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
• Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BMat_13 

Text 

[Not Assigned] 

Editable 

No . 

Disabled 

No 

No 

BDate_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_13 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_14 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_14 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyNamejIS 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_15 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_15 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_15 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_16 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_16 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_16 

Datatype: Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDesjl6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_17 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

NextPage 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

"No" 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
, Help Description: 
Field Type: 



No 

Client2 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client 
No 

BodyName_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_18 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_18 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_19 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_19 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_19 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_19 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_20 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_21 

Datatype: Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: * 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_21 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description- 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BodyDes_22 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyNameJ23 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_23 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_23 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_23 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description- 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 



No 
No 

BDate_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_24 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_25 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_26 

Text 

[Not Assigned] 
Editable 



Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_26 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

.. Sign When Mailing/In Section: No 

Encryption: ^ Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_26 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type:- Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_26 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_27 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_27 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_27 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_27 

Datatype: Text 



Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName_28 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BMat_28 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BDate_28 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyDes_28 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BodyName 29 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled 


Update Requires Editor Access: 


No 


Is Scripted: 


No 


Field: 


BMat_29 


Datatype: 


Text 


Help Description: 


[Not Assigned] 


Field Type: 


Editable 


Sign When Mailing/In Section: 


No 


Encryption: 


Disabled . 


Update Requires Editor Access: 


No 


Is Scripted: 


No 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 



BDate_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_29 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_30 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_31 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_31 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyName_32 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sigh When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BMat_32 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BDate_32 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 

Field: BodyDes_32 

Datatype: Text 

Help Description: [Not Assigned] 

Field Type: Editable 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

BodyName_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_33 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_34 

Text 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access- 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Action: 

Formula: 
Action: 

Formula: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_34 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyName_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BMat_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BDate_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

BodyDes_35 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Print Report 

@Command([FilePrint]); 
Save and Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 
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r 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As NotesView 
uidoc.Editmode=False 
Set doc=uidoc.document 
id$=doc.Universalid 
Call uidoc.closeO 

Setview=db.GetView("AIIDocsByUNID H ) 
Set doc=view.GetDocumentByKey(id$, True) 
doc.remove(T rue) 

Set view=db.GetView("(AIIReports)") 
Call view. refresh 0 
End Sub 
(Action) Close-Discard Edits 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If f!ag=True Then 

uidoc.Editmode=False 
End If 

Call uidoc.closeO 
End Sub 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 



(ClientProjectReport) 

03/18/1999 02:21:52 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 
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Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
- Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type' 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

[None Assigned] 
All Users 
All Users 

FormName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

RptName 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

client 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

RptType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

MatterJMo 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: . 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Action: 

Formula: 
Action: 

Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Action) Delete Report 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 



No 

Matter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Bodyjl 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body_2 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Body_3 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Print Report 

@Command([FilePrint]); 
Save and Close 

@Command([FileSave]) 
;@Command([FileCloseWindow 

]); 

Close 

@Command([FileClose 
Window]); 
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Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim view As NotesView 
uidoc.Editmode=False 
Set doc=uidoc.document 
. id$=doc.Universalid 
Call uidoc.closeO 

Set view=db.GetView("AIIDocsByUNID") 
Set doc=view.GetDocumentByKey(id$, True) 
doc.remove(True) 

Set view=db.GetView( M (AIIReports) ,, ) 
Call view.refreshO 
End Sub 
(Action) Close-Discard Edits 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
flag=uidoc.Editmode 
If flag=True Then 

uidoc. Editmode=False 
End If 

Call uidoc.close 
End Sub 



Name: 



(MailNot) 



Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 

Include in Query by Form: 

Default Database Form: 

Automatically Refresh Fields: 

Mail New Documents When Saving: 

Store Form In Documents: 

Inherit Default Field Values: 

Updates Become Responses: 

Retain Prior Versions As Responses: 

Activate Objects When Composing: 

Activate Objects When Editing: 

Activate Objects When Reading: 

Document Encryption Keys: 

Composed Documents May Be Read By: 

Form May Be Composed By: 



[None Assigned] 
All Users 
All Users 



No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 



03/18/1999 02:21:53 PM 
[Not Assigned] 
Document 



Subcomponents: 



Field: 



SendTo 

Names 

Comma, Semicolon 
Semicolon 



Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 



Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
, Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Subject_d 

Text 

[Not Assigned] 
Computed for display 
No 

Disabled 
No 

Subject 
No 

EditTxt 

Text 

New Line 
New Line 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Subject 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Body. 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

CopyTo 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: * 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When. Mailing/In Section: 
Encryption: 



(NameHelper) 

03/18/1999 02:21:54 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes 
Yes 
Yes 

FirstName 

Text 

First name(s) and nicknames - 
e.g. John; Johnny 
Editable 
No 

Disabled 
Yes 

Name_Edit 
No 

Middlelnitial 

Text 

Middle Initial with a trailing 
period (optional). 
Editable 
No 

Disabled 
Yes 

Middlelnitial_Edit 
No 

LastName 
Text 

Last name - e.g. Smith. 

Editable 

No 

Disabled 
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Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



Yes 

LastName_Edit 

No 

Title 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 

Dr.|Dr. 

Prof.|Prof. 

Mr.jMr. 

Ms.|Ms. 

Miss|Miss 

Mrs.|Mrs. 

No 

Disabled 

No 

No 

Suffix 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

-None-| 
Jr.|Jr. 
Sr.|Sr. 
I 

II 
III 
No 

Disabled 

No 

No 

ContactJMame 
Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@Trim(Title + w " + FirstName + 
" ■ + Middlelnitial + " " + 
LastName + " " + Suffix); 
No 

Associate 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 
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Formula: 



Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



@Trim(Title + " " + FirstName + 
" " + Middlelnitial + " " + 
LastName + M " + Suffix); 
No 



(PatentMatterHelper) 

04/20/1999 02:06:23 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

concept 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
No 
No 
rp 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 
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Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/in Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



inhouse_disclos 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

external_disclos 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

whom 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
PoA 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

@DbColumn(""; : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 
No 

llll 

No 

pofa_fa 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

re lated_matter_n o 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
• Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 



No 

serial_number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

inventor 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

clients M billing 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



(PhoneHelper) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 
Yes 
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Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



No 

Yes 

72 

PhoneLabeM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

OfficePhoneNumber 

Text 

New Line, Blank Line 
New Line 

Office phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabel_3 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

OfficeFAXPhoneNumber 

Text 

New Line, Blank Line 
New Line 

Office FAX phone number. 

Editable 

No 

Disabled 
No 

Yes 

PhoneLabel_5 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

CellPhoneNumber 

Text 

Cellular phone number. 

Editable 

No 

Disabled 
No 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 

Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 



Yes 

PhoneLabel_2 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No v 
No 

PhoneNumber 

Text 

Semicolon, New Line, Blank 
Line 

New Line 

Home phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabelj* 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

HomeFAXPhoneNumber 

Text 

New Line, Blank Line 
New Line 

Home FAX phone number. 

Editable 

No 

Disabled 

No 

Yes 

PhoneLabel_6 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

PhoneNumberJJ 

Text 

New Line, Blank Line 
New Line 

Home FAX phone number. 

Editable 

No 

Disabled 
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Update Requires Editor Access: 
Is Scripted: 



No 
Yes 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
Use "PhoneParser" 
(Form) (PhoneHelper) 

Sub Postopen(Source As Notesuidocument) 

Dim w As New NotesUIWorkspace 

Dim s As New NotesSession 

Set db = s.CurrentDatabase 

Set uidoc=source 

Set doc = uidoc.document 
End Sub 
(Field) PhoneNumber__6 

Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(j@True|) 

l=Len(doc.PhoneNumber_6(0)) 
REM "Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 



REM " In order to make it easier to understand the logic, we do another ! at the begining, so 



REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(PhoneNumber_6;"+{!a-zA-Z} ?, )| f doc) 



FirstLet=Lett(letters(0) , 1 ) 
p=Evaluate(|@Begins(PhoneNumber_6; H 1")|,doc) 
sep=Evaluate(|@Contains(PhoneNumber_6;"-")|,doc) 

pai^Evaluate(|@Contains(PhoneNumber_6;"0 &@Contains(PhoneNumber_6;") ,, )|,doc) 

locarea=Evaluate(|locarea|) 

num=doc.PhoneNumber_6(0) 

Call ParsePhoneNumber(num) 

doc.PhoneNumber_6=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 

End Sub 

Sub Initialize 

End Sub 

Sub Terminate 

End Sub 

(Field) HomeFAXPhoneNumber 

Sub Exiting(Source As Field) 
F=Evaluate(|@False|) 



results without doing the ! of the 
pattern. 



that if it does contain letters 



letters=Evaluate(|@ReplaceSub 
string(PhoneNumber_6;"0":"1 ":" 




:"-";"")|, doc) 
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T= Eva I u ate (| @True |) 
l=Len(doc.HomeFAXPhoneNumber(0)) 
REM "Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise if does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(HomeFAXPhoneNumber;"+{!a-2A-Z}")|, doc) 

letters=Evaluate(|@ReplaceSub 

string(HomeFAXPhoneNumber; 
iiq ii .« <j it . • • "4"* • "Q " • "7" " 

9»;»(»;' f ) M :"-";»")| | dOC) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(HomeFAXPhoneNumber;"1")|,doc) 
sep=Evaluate(|@Contains(HomeFAXPhoneNumber;"-")|,doc) 
par=Evaluate(|@Contains(HomeFAXPhoneNumber;"(") & 

@Contains(HomeFAXPhoneNu 
mben")")|,doc) 

locarea=Evaluate(|locarea|) 
num=doc.HomeFAXPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.HomeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering (Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) PhoneNumber 

Sub Exiting(Source As Field) 

F=E va I u ate(| @Fa Ise |) 

T=Evaluate(|@True|) 

l=Len(doc.PhoneNumber(0)) 
REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Z} ,, )| I doc) 

letters=Evaluate(|@ReplaceSub 
string(PhoneNumber;"0": ,, 1":"2": 

w^M.it^ii.ii^ti.Mgif.iiyit.iigii.ttgn.ii^ii.iiyi.it^ 

"HI, doc) 

FirstLet=Left(letters(0) , 1 ) 

p=Evaluate(|@Begins(PhoneNumber;"1")|,doc) 

sep=Evaluate(|@Contains(PhoneNumber;"-")|,doc) 
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par=Evaluate(|@Contains(PhoneNumber;T^&@Contains(PhoneNumber;'7)|,doc) 
locarea=Evaluate(|locarea|) 
num=doc.PhoneNumber(0) 
Call ParsePhoneNumber(num) 
doc.PhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) CellPhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(j@True|) 

l=Len(doc.CellPhoneNumber(0)) 
REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does riot return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(CellPhoneNumber;"+{!a-zA-Zn|, doc) 

letters=Evaluate(|@ReplaceSub 
string(CeilPhoneNumber;"0 M :T': 

":"-";"")l, doc) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(CellPhoneNumber; H 1 M )|,doc) 
sep=Evaluate(|@Contains(CellPhoneNumber;"-")|,doc) 
par=Evaluate(|@Contains(CellPhoneNumber;T) & 

@Contains(CeliPhoneNumber;" 
)")|,doc) 

locarea=Evaluate(|locarea|) 
num=doc.CeIlPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.CellPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 1 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) OfficeFAXPhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

I=Len(doc.OfficeFAXPhoneNumber(0)) 
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REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so . 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(OfficeFAXPhoneNumber;"+{!a-zA-Zn|,doc) 

letters=Evaluate(|@ReplaceSub 
string(OfficeFAXPhoneNumber; 

9 ,, :T: , y , : ,, -";"")l, doc) 

FirstLet=Left(letters(0),1) 

p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1")| 1 doc) 
sep=Evaluate(|@Contains(OfficeFAXPhoneNumber; M - M )| f doc) 
par=Evaluate(|@Contains(OfficeFAXPhoneNumber;"(") & 

@Contains(OfficeFAXPhoneNu 
mber;")")|,doc) 

locarea=Evaluate(|locarea|) 
num=doc.OfficeFAXPhoneNumber(0) 
Call ParsePhoneNumber(num) 

doc.OfficeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix) 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 
End Sub 
Sub Initialize 
End Sub 
Sub Terminate 
End Sub 
(Field) OfficePhoneNumber 
Sub Exiting(Source As Field) 

F=Evaluate(|@False|) 

T=Evaluate(|@True|) 

l=Len(doc.OfficePhoneNumber(0)) 
REM 'Test to see if the number contains any letters. 

REM " We do the test this way because it appears that ©matches does not return consistent 

results without doing the ! of the 
pattern. 

REM " In order to make it easier to understand the logic, we do another ! at the begining, so 

that if it does contain letters 

REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE."; 
x=Evaluate(|!@Matches(OfficePhoneNumber;"+{!a-zA-Z}")| t doc) 

letters=Evaluate(|@ReplaceSub 
string(OfficePhoneNumber;"0":" 
^ lt.l»2»■»2' t • ,, 4 ,, •"5"•"Q f, •"y l, •"3 ,, *"9"• ,, ^ 

":")":"-";"")|, doc) 

FirstLet=Left(letters(0) f 1) 

p=Evaluate(|@Begins(OfficePhoneNumber;"1")|,doc) 
sep=Evaluate(|@Contains(OfficePhoneNumber;"-")|,doc) 
par=Evaluate(|@Contains(OfficePhoneNumber;"(") & 

@Contains(OfficePhoneNumber 
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locarea=Evaluate(|locarea|) 
num=doc.OfficePhoneNumber(0) 
Call ParsePhoneNumber(num) 
doc.OfficePhoneNumber=Trim(Prefix & " " & tel & ' 
Call uidoc.refresh 
End Sub 

Sub Entering(Source As Field) 

End Sub 

Sub Initialize 

End Sub 

Sub Terminate 

End Sub 



;7%doc) 
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Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



(ProjectProfile) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 

DocType 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

"ProjectProfile" 
No 

ProjectType 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Prosecution: Patent 
Prosecution: Trademark 
Prosecution: Copyright 
Litigation 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
[None] 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 



Other 

Counseling & Advice 
No 

Disabled 

No 

No 



(ReportCreatoM) 

03/18/1999 02:21:55 PM 

[Not Assigned] 

Document 

Yes 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



(ReportCreator3) 

03/18/1999 02:21:56 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 
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Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 
Show Border: 
Three Dimensional Style: 
Show Grid: N 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 

Encryption: 
- Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



No 

[None Assigned] 
All Users 
All Users 



No 

Yes 

Yes 

Yes 

72 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Button 

Select a Matter 

FIELD matter := matter;FIELD 

DocUID := DocUID;temp := 

@PickList([Custom] : [Single]; 

@DbName; "ReportProject"; 

"Select Matter; "Please select a 

matter to report on"; 

4);temp;@SetFieldfmatter"; 

@GetDocField(temp; 

"MatterJJame"));@SetField("Do 

cUID"; temp); 

matter 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DocUID 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 

Include in Query by Form: 

Default Database Form: 

Automatically Refresh Fields: 

Mail New Documents When Saving: 

Store Form In Documents: 

Inherit Default Field Values: 

Updates Become Responses: 

Retain Prior Versions As Responses: 

Activate Objects When Composing: 

Activate Objects When Editing: 

Activate Objects When Reading: 

Document Encryption Keys: 

Composed Documents May Be Read By: 

Form May Be Composed By: 

$$FormAction2: 



Subcomponents: 
Layout Region: 
Show Border: 
Three Dimensional Style: 
Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 

Time Format: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: , 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 



(ReportCreatorRespAtty) 

04/20/1999 02:06:24 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 
Iname := 

@RightBack(resp_atty; " 
");fname := 

@LeftBack(resp_atty; " 
");cname := Iname + " + 
fname;@SetField( M client"; 
cname); 



No 

Yes 
Yes 
Yes 
72 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

resp_atty 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

@DbColumn( ,m ; : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 



208 



Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



No 

@lf(!@lsNewDoc; ""; @lf(Form 
= "ClientForm"; "Not Assigned"; 
resp_atty)); 
No 

client 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



(ReportCreator) 

03/18/1999 02:21:56 PM 

[Not Assigned] 

Document 

No 

Yes 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
All Users 
All Users 



No 

Yes 

Yes 

Yes 

72 

ReportDate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 
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Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit Default Field Values: 
Updates Become Responses: 
Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 

Show Border: 

Three Dimensional Style: 

Show Grid: 

Snap to Grid: 

Grid Size: 

Field: 

Datatype: 
Time Format: 
Help Description: 



client 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Button 

Select a Client 

FIELD client := client;cname := 

@PickList([Custom] : [Single]; 

@DbName; "ReportClient"; 

"Select Client"; "Please select a 

client to report on"; 

1 ) ;cname ; @SetField("client" ; 

cname); 



(Status - Patent) 

03/18/1999 02:21:57 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

No 

[None Assigned] 
, All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

filing_date 

Time 

11/03/1999 
[Not Assigned] 
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Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 

Name: 

Last Modification: 

Comment: 

Type: 

Include in Compose Menu: 
Include in Query by Form: 
Default Database Form: 
Automatically Refresh Fields: 
Mail New Documents When Saving: 
Store Form In Documents: 
Inherit.Default Field Values: 
Updates Become Responses: 



Editable 
No 

Disabled 

No 

No 

term_date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

why_term 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

- select - 

abandonment 

appeal 

patent granted 
No 

Disabled 

No 

No 

maint 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



(Status - Trademark) 

03/18/1999 02:21:58 PM 

[Not Assigned] 

Document 

No 

No 

No 

No 

No 

No 

No 

No 
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Retain Prior Versions As Responses: 
Activate Objects When Composing: 
Activate Objects When Editing: 
Activate Objects When Reading: 
Document Encryption Keys: 
Composed Documents May Be Read By: 
Form May Be Composed By: 
Subcomponents: 
Layout Region: 
Show Border: 
Three Dimensional Style: 
Show Grid: 
Snap to Grid: 
Grid Size: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 

Sign When Mailing/In Section: 



No 
No 
No 
No 

[None Assigned] 
All Users 
All Users 



Yes 
Yes 
Yes 
Yes 
72 

first_use 
Time 

11/03/1999 

Enter the date the mark was first 

used 

Editable 

No 

Disabled 

No 

No 

i_state_use 

Time 

11/03/1999 

Enter the date the mark was first 
used in interstate commerce 
Editable 
No 

Disabled 

No 

No 

filing_date 

Time 

11/03/1999 

Please enter the date the 
application was filed 
Editable 
No 

Disabled 

No 

No 

termination 

Keywords 

Please select "yes" or "no" 

Editable 

Standard 

No 

No 

Yes 

No 
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Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
[None] 



Disabled 

No 

No 

renewal 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

term_date 

Time 

11/03/1999 

If terminated, please enter the 
date of termination 
Editable 
No 

Disabled 

No 

No 

how_term 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

- select - 

Expired 

Denied 

Completed 

No 

Disabled 

No 

No 



View Information 

Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 



All Docs 

08/27/1999 02:18:49 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users 
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Time Relative Formulas: No 
Selection Formula: . SELECT ©All 

Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) All Docs 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" 1 0+48+0+0; , ERROR") 

!fOk%=1 Then 
continue=False 



1 

# 

@DocNumber 
2 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

2 

Form 
Form 

1 0 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 
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End If 
End Sub 



Name: 

Alias: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 



All Docs\ArchiveDocs 

ArchiveDocs 
07/05/1999 02:14:18 AM 
[Not Assigned] 
No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Task" & 
TEArchive = "yes") | (Form = 
"Event" & TEArchive = "yes"); 

1 

Archive 
TEArchive 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

2 

[Not Assigned] 

Client Jslame + " [" + Client_No 

+ T; 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 



None 

No 

3 

[Not Assigned] 
@DocNumber 
1 Characters 

Yes 
No 
*No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

Events and Tasks 
@lf(Form = "Task"; task; 
@lf(Form = "Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != ""; 
PatentEvent; 

@lf(TrademarkEvent != ""; 
TrademarkEvent; 
@lf(CounselEvent != ""; 
CounselEvent; 
@lf(LitigationEvent != ""; 
LitigationEvent; @lf(OtherEvent 
!= ""; OtherEvent; "")))))); "")); 
18 Characters 

No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

[Not Assigned] 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Descending 

Left 

None 

No 

8 

Status 
Status 

7 Characters 

No 
No 
No 

General 



Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 



No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

9 

Date Completed 

@lf(Form = "Event"; EventDate; 

TaskDate); 

20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 



All Docs\ByUNID 

07/05/1999 02:14:19 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT ©All 

1 

# 

@Text(@DocumentUniquelD); 
41 Characters 

No 
No 
No 
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Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals- 
Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All DocsVByUNID 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 



General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
Left 
None 
No 
2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 
3 

[Not Assigned] 
@Text($Ref); 
30 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Lett 
None 
No 



Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0,"ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 



All Docs\Except System 

07/05/1999 02:14:35 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
Form = "Matter | Form = 
"Project" | Form = "Event" | 
Form = "Task"; 

1 

# 

@DocNumber 
2 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 



Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:19 PM 


Sorting: 


No 


Justification: 


Left 


Totals: 


None 


Hide Detail Values: 


No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All Docs\Except System 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" I 0+48+0+0 t "ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



All Docs\ForReporting 

08/24/1999 10:23:06 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Client" | Form 
= "Matter" | Form = "Project" | 
Form = "Event" | Form = "Task"; 

1 

clientname 
Client_Name 
10 Characters 

No 
No 
No 

General 

No 

No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
. Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

2 

clientno 
Client_No 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

3 

mattername 

"Matter: " + Matter_Name; 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

4 

matterno 
Matte rJMo 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



Left 
None 
No 
5 

project 

@lf(project != ""; "Project: " + 
Project; ""); 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

event 

@lf(event != ""; "Event: " + 

Event;""); 

5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No' 

7 

task 

@lf(Task != ""; "Task: " + Task; 
""); 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 



Left 

None 

No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All Docs\ForReporting 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



view! ,, ,0+48+0+0,"ERROR") 



If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 



All 

Docs\ForReportingResp 
Atty 

08/24/1999 10:25:38 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT form = "Project"; 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 



1 

resp_atty 
lastname := 

@RightBack(Resp_Atty; " 
");firstname := 
@LeftBack(resp_atty; " 
");lastname + ", " + firstname; 
20 Characters 



Column Title: 



Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



No 
No 
No 



General 



No 
No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title- 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula- 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

2 

clientname 
Client_Name 
13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

client_no 
Client_No 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 

country 
ProjectCountry 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



Left 
None 
No 
5 

matter_no 
MatterJMo 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

matter_name 
Matterjslame 
20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

7 

pdescrip 
PDescrip 
20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 



8 

project 
Project 
44 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All Docs\ForReportingRespAtty 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0,"ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 



All 

Docs\ForReportingStatu 
sTable 

08/24/1999 10:24:36 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Event" | Form 
= 'Task"; 
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Column Number: . 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 

Sorting: \ 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



1 

clients_billing 
clients_billing 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

2 

clientname 
Client_Name 
13 Characters 

No 

No . 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

clientjio 
ClientJMo 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

4 

matter_no 
Matter No 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 



6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

matterjiame 

"Matter: " + MatterJMame 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

6 

inventor 
inventor 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

resp_atty 
Resp_Atty 
5 Characters 
Comma 
No 



Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

8 

PComments 
PComments 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

9 

event 
Event 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

10 

task 

Task 

3 Characters 

No 
No 
No 

General 



Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:19 PM 


Sorting: 


Ascending 


Justification: 


Left 


Totals: 


None 


Hide Detail Values: 


No 


umn Number: 


11 


Column Title: 


next_action 


Column Formula: 


Next_Action 


Column Width: 


7 Characters 


List Separator: 




Hidden: 


No 


Responses Only: 


No 


Icon: 


No 


Number Format: 


General 


Percentage (value * 100)%: 


No 


Parentheses on Negative Numbers: 


No 


Punctuated at Thousands: 


No 


Time Format: 


11/03/1999 05:36:19 PM 


Sorting: 


Ascending 


Justification; 


Left 


Totals: 


None 


Hide Detail Values: 


No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All DocsXForReportingStatusTable 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0 t "ERROFO 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 



All Docs\System Docs 

03/18/1999 02:29:46 PM 

[Not Assigned] 

No 

Disabled 
Expanded 
None 
Automatic 
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Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format- 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) All Docs\System Docs 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

End Sub 



Never 
All Users 
No 

SELECT Form = "Routing" | 
Form = "(ProjectProfile)" | Form 
= "EvProjKeys" | Form = 
"Archive Profile"; 



1 

# 

@DocNumber 
2 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 
2 

Form 
Form 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 



Name: Archiving 

Alias: Archiving 

Last Modification: 09/02/1 999 04:50:22 PM 
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Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 

Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



[Not Assigned] 
No 

Enabled 
Expanded 

Compute and Display at All 

Levels of View 

Automatic 

Never 

All Users 

No 

SELECT @Contains(Form; 
"Archive"); 

1 

[Not Assigned] 

@lf(@Contains(Form; "Log"); 
"Archive Logs"; "Archive 
Profile"); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Descending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
©Created 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

3 

Description 

@if(Form = "Archive Profile"; 
"Archive Profile" + " - Do Not 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 

Formula: 



Action: 

Formula: 



Delete"; Subject); 
30 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

Setup Archive... 

@PostedCommand([Compose]; 
"ArchiveProfile");@PostedCom 
mand([RefreshHideFormulas]); 
Archive Now 

key := "Archive Profile";AIIDocs 
:= @DbLookup( ,,n : "NoCache"; 
""; "Archiving"; Key; 
"ArchivePath");@lf(AIIDocs = ""; 
@Prompt([OK]; "Error"; "You 
must specify a location for the 
archive database") : 
@Return(0); 
@Success);AIIDocs2 := 
@lf(@lsError(@DbLookup("" : 
"NoCache"; ""; "Archiving"; Key; 
"ArchivePath")); 
@Return(@Prompt([OK]; 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
Profile. Please press Y'Setup 
Archive.. A".")); 
"");@lf(@Prompt([YESNO]; 
"Archiving"; "Are you sure you 
want to move documents to the 
archive database now?"); ""; 
@Return(0));@PostedComman 
d([ToolsRunMacro]; "Periodic 
Archive");@PostedCommand([V 
iewRefreshFields]); 
Enable Scheduled Archiving 
AIIDocs := 

@lf(@lsError(@DbLookup(""; 
""; "Archiving"; "Archive Profile"; 
1)); @Retum(@Prompt([OK]; 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
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Profile. Please press V'Setup 
Archive...\".")); 

"");@PostedCommand([AgentE 
nableDisable]; "Periodic 
Archive");@PostedCommand([R 
efreshHideFormulas]); 

Action: Disable Scheduled Archiving 

Formula: AIIDocs := 

@lf(@lsError(@DbLookupC; . 

"Archiving"; "Archive Profile"; 
1)); @Return(@Prompt([OK]; 
"Archive Now"; "Before you can 
begin archiving documents you 
need to fill out an Archive 
Profile. Please press V'Setup 
Archive...V\")); 

"");@PostedCommand([AgentE 
nableDisable]; "Periodic 
Archive");@PostedCommand([R 
efreshHideFormulas]); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(Action) Open Archive Db... 

Dim s As NotesSession 

Dim w As NotesU (Workspace 

Dim sourcedb As NotesDatabase 

Dim view As NotesView 

Dim profile As NotesDocument 

Dim server As String 

Sub Click(Source As Button) 

On Error Goto ErrorRoutine 
'91 is Object Variable Not Set 

On Error 91 Resume Next 
'441 2 is the notes database does not exist 

On Error 4412 Goto DatabaseNotExistError 

Set s = New NotesSession 

Set sourcedb = s.CurrentDatabase 

Set view = sourcedb.GetView("Archiving") 

key = "Archive Profile" 

Set profile = view.GetDocumentByKey(key) 

If profile Is Nothing Then 

Messagebox "There is no Archive Db for this database.", 0 + 64, "Archive" 
Exit Sub 

End If 

ArchivePath = profile.ArchivePath 

ArchiveServer = profile.ArchiveServer 

If (ArchivePath(O) = "") Then 

Messagebox "The archive database cannot be found. Click on the Setup Archive 

button to create a new archive 
database.", 16,"Database not 
found" 

Exit Sub 
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End If 

Set w = New NotesUIWorkspace 

Call w.OpenDatabase(ArchiveServer(0), ArchivePath(O), "", "1") 
Exit Sub 
ErrorRoutine: 

Messagebox "Unexpected condition: " & Err & " - " & Error 

Exit Sub 
DatabaseNotExistError: 

Messagebox "The archive database cannot be found. Click on the Setup Archive button to 

create a new archive 
database.",16,"Database not 
found" 

Exit Sub 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



By Resp Attorney\Event 

08/11/1999 12:19:47 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Event" & 
(TEArchive = "no" | TEArchive = 

""); 

1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + ", " + 
@LettBack(@Name([CN]; 
resp_atty); " ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: , 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 

No 

No 

No « 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Event Date 
EventDate 
10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

4 

Event 
PDescrip 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

Project 
Project 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 



15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

Matter Name & No. 
Matterjslame + " [" + 

Matter_No + T: 

16 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

Client Name & No. 
Client_Name + " [" + ClientJMo 
+ T; 

28 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 
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(View) By Resp Attomey\Event 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0, ,, ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 



By Resp Attorney\Event- 
Task 

08/24/1999 09:48:20 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = ("Event" : 
"Task") & (TEArchive = "no" | 
TEArchive = ""); 

1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + ", " + 
@LettBack(@Name([CN]; 
resp_atty);" ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 



None 

No 

2 

[Not Assigned] 
@Name([CN]; resp_atty); 

I Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Event/Task Date 

@lf(Form = "Event"; EventDate; 

cre_date); 

II Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

Event/Task 

@lf(Form = "Event"; "Event" + " 
- " + PDescrip; Task" + "-" + 
Task); 

22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 
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Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



None 

No 

5 

Project 
Project 

15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

6 

Matter Name & No. 
Matter_Name + " [" + 
MatterJMo + "]"; 

16 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

7 

Client Name & No. 
Client_Name + " [" + Client_No 

+ T; 

28 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 
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Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp Attorney\Event-Task 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" > 0+48+0+0, M ERROR ,f ) 

ifOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



By Resp Attorney\Matter 

03/18/1999 02:28:43 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = "Matter")); 
1 

[Not Assigned] 

@lf(resp_atty = ""; "Matter Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty);" ") + ". " + 
@LeftBack(@Name([CN]; 
resp_atty);" ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: . 
Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



Left 
None 
No 
2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Matter Name & No. 
MatterJMame + H [" + 
Matter_No t "J"; 
38 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 

M ff 

3 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 
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Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value* 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



No 
5 

Client Name & No. 

Clientjvlame + " [" + ClientJvJo 
+ T; 

50 Characters 

No 
No 
" No 
General 
No 
No 
No 

11/03/1999 05:36:19 PM 
No 
Left 
None 
No 

Create New Project 

TList := @DbColumn(""; : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error 1 '; "An error has occured. 
Please try again.")); 
TList) ; ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp Attorney\Matter 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0,"ERROR") 

If Ok%=1 Then 
continue=False 
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End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 



By Resp 
Attorn ey\Project 

04/20/1999 02:05:26 PM 

[Not Assigned] 

No 

Enabled 

Expanded . 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = "Project")); 
1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + " + 
@LeftBack(@Name([CN]; 
resp_atty); " ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 
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Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



Ascending, Categorized 

Left 

None 

No 

3 

Projects 
Project + " " + 
@Right(ProjectCountry; 4); 
24 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

Ascending 

Left 

None 

No 

4 

Matter Name & No. 
MatterJMame + " [" + 
MatterJMo + T; 
22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:19 PM 

No 

Left 

None 

No 

5 

[Not Assigned] 
•i » 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 



Left 
None 
No 
6 

Client Name & No. 
Client_Name + " [" + ClientNo 
+ T; 

21 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

7 

Project Description 

PDescrip 

37 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Create New Event 

@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error"; "Please select the 
associated Project before 
creating a new Event ")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 
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[None] 
LotusScript Code: 

(View) By Resp AttorneyVProject 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewr\0+48+0+Q/'ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



By Resp AttorneyVTask 

08/24/1999 09:46:46 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

AH Users 

No 

SELECT Form = "Task" & 
(TEArchive = "no" | TEArchive = 

""); 

1 

[Not Assigned] 

@lf(resp_atty = ""; "Project Not 
Assigned"; 

@RightBack(@Name([CN]; 
resp_atty); " ") + " + 
@LeftBack(@Name([CN]; 
resp_atty); " ")); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



Left 
None 
No 
2 

[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

3 

CreDate 
cre_date 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

Task 
Task 

20 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
■ Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 



[Not Assigned] 

M II 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Hours 
hours 

4 Characters 

No 
No 
No 

Fixed (2 Decimal Places) 

No 

No 

No 

11/03/1999 05:36:20 PM 

No 

Left 

Total 

No 

7 

Project 
Project + " " + 
@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

8 

Matter Name & No. 
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Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Matter_Name + ' 
Matter_No + "]"; 
19 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

Client Name & No. 
Client_Name + " [" + Client_No 
+ T 

20 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) By Resp AttorneyVTask 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view! M l 0+48+0+0,"ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 
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Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Calendar View\Event 

07/28/1999 10:02:28 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Event") & 
(TEArchive = "no" | TEArchive = 

1 

Date 

EventDate 
6 Characters 

Yes 

No 

No 

General . 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

2 

Event 

Status + ": " + PDescrip; 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Client 

ClientJMame + " [" + ClientJMo 
+ T: 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

4 

Matter 

Matter_Name + " [" + Matter_No 

+ T; 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Responsible 

@Name([CN]; resp_atty); 
13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was " + Priority); 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 

Action: 

Formula: 

Action: 
Formula: 



7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 
"2"); 

One Week 

@Command([CalendarFormat]; 
"7"); 

Two Weeks 

@Command([CalendarFormat]; 
"14"); 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar View\E vent 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0 f "ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 



Calendar View\Event & 
Tasks 

08/24/1999 10:14:27 AM 

[Not Assigned] 

No 

Enabled 
Expanded 
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Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format- 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 



None 
Automatic 
Never 
All Users 
No 

SELECT (Form = "Event" | Form 
= "Task") & (TEArchive = "no" | 
TEArchive = ""); 

1 

Date 

@lf(form = "Event"; EventDate; 

cre_date); 

6 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

2 

Event/Task 

@lf(Form = "Event"; Status + " 

Event" + ": " + PDescrip; 

@lf(Form = "Task"; Status + " 

Task" + ": " + Task; "")); 

27 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Client 

CHentJMame + " [" + Client JMo 

+ T; 

17 Characters 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula:. 



Column Width: 
List Separator: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

4 

Matter 

Matterjvlame + " [" + Matter_No 
+ T; 

13 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Responsible 

@Name([CN]; resp_atty); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was " + Priority); 
7 Characters 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 

Formula: 

Action: 

Formula: 

Action: 

Formula: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 
"2"); 

One Week 

@Command([CalendarFormat]; 
w 7"); 

Two Weeks 

@Command([CalendarFormat]; 
"140; 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar View\Event & Tasks 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUI Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CuirentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" l 0+48+0+0, ,, ERROR") 

lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 



Calendar ViewVTask 

07/28/1999 10:02:30 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 
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View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 
Column Title: 
Column Formula: 
Column Width- 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format; 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 



All Users 
No 

SELECT (Form = "Task") & 
(TEArchive = "no" | TEArchive = 

""): 
1 

CreDate 
cre_date 
6 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

2 

Task 

Status + ": " + Task; 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

3 

Client 

ClientJMame + " [" + Client_No 
+ T; 

15 Characters 

No 
No 
No 

General 
No 
No 
No 
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Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 



11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

4 

Matter 

Matter_Name + " [" + MatterJvJo 

+ T; 

10 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Responsible 

@Name([CN]; resp_atty); 
17 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Priority 

@lf(Status != "Completed"; 
"Priority is " + Priority; "Priority 
was " + Priority); 
6 Characters 

No 
No 
No 

General 
No 
No 
No 
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Action: 



Action: 



Action: 



Action: 



Time Format: . 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 



Formula: 



Formula: 



Formula: 



Formula: 



11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Two Days 

@Command([CalendarFormat]; 

"2"); 

One Week 

@Command([CalendarFormat]; 
"7"); 

Two Weeks 

@Command([CalendarFormat]; 
"14"); 

One Month 

@Command([CalendarFormat]; 
"30"); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Calendar Vie w\Task 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



view!",0+48+0+0 



/'ERROR") 



lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Client Viewl 

07/28/1999 10:02:30 AM 

[Not Assigned] 

Yes 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
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Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 



"")) | Form = "Matter; 
1 

[Not Assigned] 
@Text(Client_Name) + " [' + 
@Text(Client_No) + "]"; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter"; 
MatterjvJame; ""); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 

"")); 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 
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Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 



Ascending 

Left 

None 

No 

4 

[Not Assigned] 
inhouse_disclos 
1 Characters 

Yes 

No 

Yes 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

@lf(Form = "Matter"; Form + " - 
" + Matter_Name + " [" + 
Matter_No + "]"; @lf(Form = 
"Project"; Form + " - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
= "Event"; ©Text(EventDate) + 
"-" + Form + "-" + Event; 
@If(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ "-" + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
42 Characters 

No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 

Formula: 



Action: 
Formula: 



Action: 

Formula: 



Action: 

Formula: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @lf(Form = "Matter; 

©DbColumnC; "" : ""; 
"ProjectTypes"; 1); "");List := 
@lf(Tlist = ""; 
@Return(@Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OKJ; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
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"Please select the associated 
Project before creating a new 
Task.")); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) Client View 1 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NoteslllDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
•Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0-K>,"ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



Client View 2 

07/28/1999 10:02:31 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "CiientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
"")) | Form = "Matter"; 

1 

[Not Assigned] 

@Text(Client_Name) + " [" + 
@Text(Client_No) + T; 
1 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter"; 
Matter_No; ""); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 

"")); ^ 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 
inhouse_disclos 
1 Characters 

Yes 

No 

Yes 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 



No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

@lf(Form = "Matter"; Form + " - 
" + MatterjsJame + " [" + 
MatterJMo + "]"; @lf(Form = 
"Project"; Form + " - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
= "Event"; @Text(EventDate) + 
" - " + Form + " - " + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ " - " + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
42 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
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Action: 

Formula: 



Action: 
Formula: 



Action: 

Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) Client View 2 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocumerit 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 



"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @lf(Form = "Matter; 
@DbColumn( ,m ; "" : ""; 
"ProjectTypes"; 1); ,m );List := 
@lf(Tlist = ""; 
©Return (@Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; ©Subset (List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK|; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 
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'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" 1 0+48+0+0, ,, ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 



Client View by Number! 

07/28/1999 10:03:23 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
"")) | Form = "Matter"; 

1 

[Not Assigned] 

"[" + @Text(Client_No) + "] " + 

@Text(ClieritJ\lame); 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
@if(Form = "Matter"; 
Matter_Name; ""); 
1 Characters 

Yes 
No 
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Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 

"")); 

1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

4 

[Not Assigned] 
Form 

1 Characters 

Yes 

No 

Yes 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

[Not Assigned] 

@lf(Form = "Matter; Form + " - 
" + Matter_Name + " [" + 
MatterJMo + "]"; @lf(Form = 
"Project"; Form + n - " + Project 
+ " n + @Right(ProjectCountry; 
4) + ■ - " + PDescrip; @lf(Form 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 

Formula: 



Action: 

Formula: 



= "Event"; @Text(EventDate) + 
" - " + Form + " - " + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ "-" + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left - 

None 

No 

6 

[Not Assigned] 
"Client Data Form" 
18 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 

@Command([Compose]; 

"ClientForm"); 

Create New Matter 

@lf(Form = "ClientForm"; 

@Command([Compose]; 

"Matter"); @Prompt([OK]; 

"Error; "Please select the 

associated Client before 

creating a new Matter.")); 

Create New Project 

TList := @lf(Form = "Matter"; - 

@DbColumn(""; ,m : ""; 
"ProjectTypes"; 1); "");List := 
@lf(Tlist = ""; 
@Return(@Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 



creating a new Project.')); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 

Action: Create New Event 

Formula: @lf(Form = "Project"; 

@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 

Action: Create New Task 

Formula: @lf(Form = "Project"; 

@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Client View by Numberl 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!",0+48+0+0 t "ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 



Client View by Number2 

07/28/1999 10:03:23 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 
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Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 



Automatic 
Never 
All Users 
No 

SELECT Form = "ClientForm" | 
(Form = "Event" & (TEArchive = 
"" | TEArchive = "no")) | Form = 
"Project" | (Form = "Task" & 
(TEArchive = "no" | TEArchive = 
"")) | Form = "Matter"; 

1 

[Not Assigned] 

T + @Text(Client_No) + "] " + 

@Text(Client_Name); 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Lett 

None 

No 

2 

[Not Assigned] 
@lf(Form = "Matter; 
Matterjslo; ""); 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

@lf(Form = "Event"; EventDate; 
@lf(Form = "Task"; cre_date; 

nM »; 

1 Characters 
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List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

4 

[Not Assigned] 
Form 

1 Characters 

Yes 

No 

Yes 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

5 

[Not Assigned] 

@lf(Form = "Matter; Form + " - 
" + MatterJMame + " [" + 
Matter_No + T; @lf(Form = 
"Project"; Form + " - " + Project 
+ " " + @Right(ProjectCountry; 
4) + " - " + PDescrip; @lf(Form 
= "Event"; ©Text(EventDate) + 
" - " + Form + " - " + Event; 
@lf(Form = "Task"; 
@Text(cre_date) + " - " + Form 
+ " - ■ + Task; "")))); 
1 Characters 

No 

Yes 

No 

General 
No 
No 
No 

11/03/1999 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 
Formula: 



Action: 

Formula: 



Action: 
Formula: 



Left 
None 
No 
6 

[Not Assigned] 
"Client Data Form" 
18 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 

@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Fdrm = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @lf(Form = "Matter"; 
@DbColumn(""; : ""; 
"ProjectTypes"; 1); m, );List := 
@lf(Tlist = ""; 
@Retu rn(@Pro mpt([OK] ; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLlST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OKJ; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Composel; 
"Event"); @Prompt([OK]; 
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Action: 



Formula: 



"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Com ma nd ([Compose] ; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Client View by Number2 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Works pace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



view!" i q+48+0+0,"ERROR") 



lfOk%=1 Then 

continue=False 
End If 
End Sub 



Name: 



Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Events and 
Tasks\Completed 

07/28/1999 10:03:26 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Task" & 
TEArchive = "yes") | (Form = 
"Event" & TEArchive = "yes"); 



Subcomponents: 
' Column Number: 

Column Title: 



1 

[Not Assigned] 

ClientJMame + " [" + Client_No 
+ T 

1 Characters 



Column Formula: 



Column Width: 
List Separator: 
Hidden: 



No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
TEDateComplete 
1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Events and Tasks 
@lf(Form = "Task"; task; 
@lf(Form = "Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != ""; 
PatentEvent; 
@lf(TrademarkEvent != m 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



TrademarkEvent; 
@lf(CounselEvent!= ""; 
CounselEvent; 
@lf(LitigationEvent != ""; 
LitigationEvent; @lf(OtherEvent 
!= ,m ; OtherEvent; "")))))); "")); 
22 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

5 

[Not Assigned) 
ii it 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 



7 

Status 
Status 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

8 

Priority 
Priority 
5 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

Date 

@lf(Form = "Event"; EventDate; 

cre_date); 

13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

No 

Left 

None 

No 

10 

Date Completed/Retired 
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Column Formula: TEDateComplete 

Column Width: 1 6 Characters 
List Separator: 

Hidden: No 

Responses Only: No 

Icon: No 

Number Format: General 

Percentage (value * 100)%: No 

Parentheses on Negative Numbers: No 

Punctuated at Thousands: No 

Time Format: 1 1/03/1 999 

Sorting: No 

Justification: Left 

Totals: None 

Hide Detail Values: No 

JavaScript & HTML Code: 
[None] 

LotusScript Code: 

(View) Events and Tasks\Completed 



Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("Xou are not allowed to paste documents into a 

view! H ,0+48+0+0,"ERROR") 

lfOk%=1Then 

continue=False 
End If 
End Sub 
(Action) Make Document Active 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim view As NotesView 
Dim doc As NotesDocument 
Dim yesOrNo As Integer 
Dim OkCancel As Integer 
'Get the selected documents 
Set collection = db.UnprocessedDocuments 
Set'doc = collection.GetFirstDocument 
If doc Is Nothing Then 

Exit Sub 
End If 

'Make sure user wants to make the event/task active 

yesOrNo=Msgbox("Are you sure you want to make this Event/Task active?", 4 + 32 + 256 
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+ 0, "Make Active?") 

If yesOrNo=7 Then 

Exit Sub 
End If 

'Get the values from the document and reset them to active 
If doc.Form(0)="Event" Then 

doc.TEDateComplete="" 

doc.TEArchive="no" 

doc.Retire_By="" 

doc.UnHideEV="no" 

doc.ClosingEV="no" 

SetOldHistltem=doc.GetFirstltem("History M ) 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

NewHist$= NewHist$ & Chr(010) + "Event was Re-Activated on: "+ Date$ 
update$="Y" 

'Append the new changes to the History 
doc.StatusJ="Modified" 

doc.History=NewHist$ & Chr(01 0) +"- 

Chr(010) + OldHistltemText 

doc.ComputeWithForm True, False 
doc.save True, True 

Msgbox "The selected Event has been successfully re-activated. Refresh the View by 

pressing the 'F9' key.", 
0+64+0+0, "Event Re-Activated" 

End If 

'Do the same if the doc is a task 
If doc.Form(0)="Task" Then 

doc.TEDateComplete-'" 

doc.TEArchive="no" 

doc.RACIosed="no" 

Set RASigltem=doc.GetFirstltem("RA_Sig") 

Set IPDSigltem=doc.GetFirstltem("IPD_Sig") 

Set Sectionlteml =doc.GetFirstltem("$Sig_Untitled_Section_1 ") 

Set Sectionltem2=doc.GetFirstltem( ,, $Sig_Untitled_Section2") 

RASigltem.lsSigned=False 

IPDSigltem.lsSigned=False 

Sectionlteml .lsSigned=False 

Sectionltem2.lsSigned=False 

Sectionltem2.lsEncrypted=False 

Sectionlteml .lsEncrypted=False 

Call Sectionlteml. remove 

Call Sectionltem2.remove 

doc.RA_Sig="" 

doc.lPD_Sig="" 

doc.UnHideRA="no" 

doc.UnHideDM="no" 

doc.DocDateComplete="" 

Set OldHistltem=doc.GetFirstltem("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" . 

NewHist$= NewHist$ & Chr(010) + "Task was Re-Opened on: "+ Date$ & Chr(010) + " 

All Electronic Signatures were 
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cleared" 

update$="Y" 

Append the new changes to the History 
doc.Statusji="Modified" 

doc.History=NewHist$ & Chr(010) +"— - 

& 

Chr(010) + OidHistltem.Text 

doc.ComputeWithForm True, False 
doc.save True, True 

Msgbox "The selected Task has been successfully re-opened. Refresh the View by 

pressing the *F9' key.", 
0+64+0+0, "Task Re-Opened" 

End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Events and 
Tasks\Open By Client 

07/28/1999 10:03:27 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None . 

Automatic 

Never 

All Users 

No 

SELECT (Form = Task" & 
Status = "Open") | (Form = 
"Event" & Status = "Open"); 

1 

[Not Assigned] 

Clientjslame + " [" + Client_No 
+ T; 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

*2 

[Not Assigned] 
©DocNumber 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 1 00)%: 
Parentheses on Negative Numbers: 



1 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 
. Left 
None 
No 
4 

Events and Tasks 
@lf(Form = "Task"; task; 
@lf(Form = "Event"; 
@lf(CopyrightEvent != ""; 
CopyrightEvent; 
@lf(PatentEvent != ""; 
PatentEvent; 

@lf(TrademarkEvent != ""; 
TrademarkEvent; 
@lf(CounselEvent != ""; 
CounselEvent; 
@lf(LitigationEvent != ""; 
LitigationEvent; @lf(OtherEvent 
!= M "; OtherEvent; "")))))); "")); 
18 Characters 

No 
No 
No 

General 

No 

No 



282 



Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format- 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

5 

[Not Assigned] 

1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Responsible 

@Name([CN]; resp_atty); 
14 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Descending 

Left 

None 

No 

7 

Status 
Status 

7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 



Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Left 
None 
No 
8 

Priority 
Priority 
8 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

Date 

@lf(Form = "Event"; EventDate; 
cre_date); 
7 Characters 



Column Width: 
List Separator: 

Hidden: No 
Responses Only: No 
Icon: No 
Number Format: General 
Percentage (value * 1 00)%: No 
Parentheses on Negative Numbers: No 
Punctuated at Thousands: No 
Time Format: 11/03/1999 
Sorting: No 
Justification: Left 
Totals: None 
Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Events and TasksVOpenByClient 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

viewr\0+48+0+0, n ERROR") 

If Ok%=1 Then 



284 



continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: . 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



RoutView 

07/05/1999 02:15:28 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT (Form = "Event") & 
print = "yes"; 

1 

Task 

@DocNumber 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

2 

Client 

ClientJMame 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 



Action: 



Two Days 

@Command([CalendarFormat]; 
"2"); 

One Week 

@Command([CalendarFormat]; 

"7"); 

Two Weeks 

@Command([Ca!endarFormat]; 
"14"); 



Formula: 



Action: 



Formula: 



Action: 



Formula: 



Action: 



One Month 

@Command([CalendarFormat]; 
"30"); 



Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) RoutView 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



If Ok%=1 Then 

continue=False 
End If 
End Sub 



view!",0+48+0+0 t "ERROR") 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Tasks\By Client 

07/28/1999 10:03:33 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
(TEArchive = "no" | TEArchive = 



Subcomponents: 
Column Number: 

Column Title: 



Column Width: 
List Separator: 



Column Formula: 



1 

[Not Assigned] 

ClientJMame + " f + Client_No 
+ "]" + " Tasks"; 
2 Characters 
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Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

CreDate 
cre_date 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 

Ascending 

Left 

None 

No 

3 

Task 

Form = "TaskVTask" + " - 
Task; 

25 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Responsible Attorney 
@Name([CN]; resp_atty); 
16 Characters 

No 
No 



Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values:, 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(View) TasksVBy Client 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 



No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Project 
Project + " " + 
@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Matter Name & No 
Matter_Name + " [" + 
Matter_No + "]"; 
36 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
No 
Left 
None 
No 
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Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting. documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view!" l 0+48+0+0, M ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 



TasksVBy RespAtty 

07/28/1999 10:03:34 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = Task" & 
(TEArchive = "no" | TEArchive = 
• ,H ); 



[Not Assigned] 
@Name([CN]; resp_atty); 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Date 
cre_date 
7 Characters 

No 
No 
No 
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Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 



General 
No 
No 
No 

11/03/1999 

Ascending 

Lett 

None 

No 

3 

Task 

Form = "Task'V'Task" + w - " 
Task; 

25 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

4 

Project 
Project + " " + 
@Right(ProjectCountry; 4); 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

5 

Matter 

MatterJMame + " [" + 
MatterJMo + "]"; 
20 Characters 

No 
No 
No 



Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

6 

Client 

Clientjslame + " [" + Client_No 

+ T; 

13 Characters 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 
Justification: 
Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) TasksVBy RespAtty 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 

view! , \0+48+0+0,"ERROR") 

If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 



Tasks\CompIeted by 
Client 

07/28/1999 10:03:34 AM 

[Not Assigned] 

No 

Enabled 
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Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = 'Task" & 
TEArchive = "yes"; 

1 

[Not Assigned] 

Client JMame + " [" + Clientjslo 
+ w ] n + Project + " + PDescrip; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Status 

@lf(Form = "Event"; "(" + 
PDescrip + ") " + " - Due: " + 
@Left(@Text(EventDate); 8) + " 
- Closed: " + 

@Text(TEDateComplete) + " by 
" + RA_Sig + V; @lf(Form = 
"Task"; "(" + PDescrip + ") " + " - 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



Due: " + 

@Left(@Text(TaskDate); 8) + " 
- Closed: " + 

@Text(TEDateComplete) + " by 
" + RA_Sig + V; "")); 



75 Characters 



No 
No 
No 



General 



No 
No 
No 



11/03/1999 



No 
Left 



None 
No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Tasks\Completed by Client 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesU Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



lfOk%=1 Then 



view! H t 0+48+0+0,"ERROR") 



continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Tasks\Completed by RA 

07/28/1999 10:03:35 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = 'Task" & 
TEArchive = "yes"; 



Subcomponents: 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 

Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 



1 

[Not Assigned] 
Resp_Atty 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 

,Client_Name + M [" + Client_No 
+ T " + Project + '\ w + PDescrip; 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

3 

Type 
Form 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Status 
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Column Formula: 



@lf(Form = "Event"; "(" + 
PDescrip + ")" + "- Due: " + 



@Text(EventDate) + ".- Closed: 
" + @Text(TEDateComplete) + " 
by " + RA_Sig + "."; @lf(Form = 
"Task"; "(" + PDescrip + ") " + " - 
Due: " + @Text(TaskDate) + " - 
Closed: " + 



@Text(TEDateComplete) + " by 
" + RA_Sig + "."; "")); 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



75 Characters 



No 
No 
No 



General 



No 
No 
No 



None 
No 



No 
Left 



11/03/1999 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(View) Tasks\Completed by RA 

Sub Querypaste(Source As Notesuiview, Continue As Variant) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
! Stop pasting documents into views 

Ok%=Messagebox("You are not allowed to paste documents into a 



view!" 1 0+48+0+0, M ERROR") ^ 



If Ok%=1 Then 

continue=False 
End If 
End Sub 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 



UpdateView 

07/05/1999 02:15:30 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 
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View May Be Used By: . 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



All Users 
No 

SELECT Form != 
"ProjectProfile" & Update = 
"mod" | ©AIIDescendants; 

1 

Client_No 

Client Jslo + Matter_No; 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Matter Name 
Matter_Name 
27 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 



(All Reports) 

07/05/1999 02:15:31 AM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 
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Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 



Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
. Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



Automatic 
Never 
All Users 
No 

SELECT Form = 
"(ClientMatterReport)" | Form = 
"(ClientProjectReport)"; 

1 

Report 
FormName 
4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Lett 

None 

No 

2 

Client 
client 

4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

3 

Report Date 
ReportDate 
10 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 



No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(""; "" : "' ! ; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 
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[None] 



Name: 



Alias: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 



(Business Card) Place 
this view in the Public 
Address Book 

BCard 

07/05/1999 02:15:32 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT Type = "Person" : 
"Company"; 

1 

Name 

@lf(LastName != "" | FirstName 

| = MM. 

» 

@Trim(@Subset(LastName; 1)) 
+ @lf(Firstname != ""; " , " + 
@Trim(@Subset(FirstName; 
1)); ""); CompanyName); 
13 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

2 

Name 

@Trim(@lf(FullName != ""; 
@Name([CN]; 
@Subset(FullName; 1)); 
FullName = "" & CompanyName 
!= ""; CompanyName; "")); 
16 Characters 

No 
No 
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Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

3 

Phones 

@Trim(@lf(OfficePhoneNumber 
!= ""; @lf(PhoneLabeM != ""; 
PhoneLabeM + ": "; "") + 
OfficePhoneNumber; "") : 
@lf(OfficeFAXPhoneNumber != 
""; @lf(PhoneLabel_3 != ""; 
PhoneLabelJJ + ": M ; ,w ) + 
OfficeFAXPhoneNumber; MW ) : 
@lf(CellPhoneNumber != MM ; 
@lf(PhoneLabeL5 != ""; 
PhoneLabeLS + "; "") + 
CellPhoneNumber; "") : 
@lf(PhoneNumber != ""; 
@lf(PhoneLabel_2 != ""; 
PhoneLabeL2 + ": "; ,m ) + 
PhoneNumben "") : 
@lf(HomeFAXPhoneNumber != 
""; @lf(PhoneLabel_4 != ,,n ; 
PhoneLabel_4 + ": w ; ,m ) + 
HomeFAXPhoneNumber; ,m ) : 
@lf(PhoneNumber_6 != 
@lf(PhoneLabeL6 != 
PhoneLabel_6 + ": "") + 
PhoneNumber_6; "")); 
16 Characters 
New Line 
No 
*Jo 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

Business 

@Trim(@lf(CompanyName != 
""; CompanyName; "") : 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 



Action: 

Formula: 



@lf(JobTitle != ""; JobTitle; "") : 
@lf(OfficeStreetAddress != ""; 
OfficeStreetAddress : 
@Trim(OfficeCity + 
@lf(OfficeCity != & 
OfficeState != ""; ", "; "") + 
OfficeState + " " + OfficeZip) : 
OfficeCountry; "")); 
23 Characters 
New Line 

No 4 

No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add Card 

CurrentServer := 
@Subset(@DbName; 
1);@lf(CurrentServer= *'"; 
@PostedCommand([Compose] ; 
"Person"); 

@lsMember("[UserCreator]"; 
©UserRoles); 

@PostedCommand([Compose]; 
"Person"); @Prompt([OK]; "Not 
Authorized"; 'You are not 
authorized to add Person 
documents to this database.")); 
Delete 

FIELD MailVerify := "0";FIELD 
DeleteNTUserAccount := 
"0 H ;synch := "";AdminFileName 
:= n admin4.nsf ;CurrentServer 
:= @Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFileName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
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1));NamesAccess := 

@V4UserAccess(@DbName);N 
amesAccessLevel := 
@TextToNumber(@Subset(Na 
mes Access; 

1));NamesDeIeteAccess := 
@TextToNumber(@Subset(Na 
mesAccess; - 
1));PersonLastName := 
LastName;PersonFirstName := 
FirstName;DeleteVerify := 
@lf(@Prompt([YESNO]; 
"Verification"; "You have 
requested to delete the selected 
person records. Do you wish to 
continue?' 1 ); @True; 
@Return(@Prompt([OK]; 
"Action Cancelled"; 'You have 
cancelled deleting the person 
record(s).'0));@If(De!eteVerify = 
©True; @lf(CurrentServer = ""; 
@Command([EditClear]); 
@Do(@DialogBox("(DeleteUser 
Options)"; [NoCancel] : 
[AutoVertFit] : [AutoHorzFit] : 
[NoNewFields]); 
@lf(@Text(AdminPExist) = "1"; 
@lf(AdminPAccessl_evel > 2 & 
AdminPCreateAccess > 0; 
@lf(NamesAccessLevel > 3 & 
NamesDeleteAccess > 0; 
@Do(@Set("synch"; 
@Prompt([YESNOCANCEL]; 
"Immediate or via Administration 
Process?"; "By selecting VYesY 
the action you have requested 
will take place immediately, and 
affect all references to the 
selected people in this Address 
Book. (NOTE: This may take 
awhile...)")); @lf(synch = 
@True; 

@lf(@AdminPerformAction([Del 
eteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt([OK]; "Completed 
Successfully"; 'The peop!e(s) 
name have been removed 
completely from this Address 
Book"); @Prompt([OK]; "Error; 
"You have encountered an 
error. The people(s) name have 
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not been removed completely. 
Please try again. ")); synch = 
@False; 

@Do(@lf(@AdminCreateReque 
st([DeleteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt([OK]; "Request 
Successful"; 'Your request to 
delete the people(s) name have 
been successfully submitted to 
the Administration Requests 
database."); @Prompt([OK]; 
. "Error; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again."))); 

@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Action Cancelled"; "Action has 
been cancelled."))))); 
NamesAccessLevel > 2 & 
NamesDeleteAccess > 0; 
@Do(@lf(@AdminCreateReque 
st([DeleteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName; MailVerify; 
DeleteNTUserAccount); 
@Prompt([OK]; "Request 
Successful"; "Your request to 
delete the people(s) name have 
been successfully submitted to 
the Administration Requests 
database."); ©PrompttfOK]; , 
"Error"; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again."))); NamesAccessLevel < 
3 | NamesDeleteAccess = 0; 
@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation."))); 

@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); ©PrompttfOK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
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r 



operation.")))); 

@Return(@Do(@SetField("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Insufficient Access"; "You are 
not authorized to create 
requests in the Administration 
Requests Database.")))); 
@Return(@Do(@SetFieId("Del 
eteNTUserAccount"; 
©Unavailable); @Prompt([OK]; 
"Admin. Requests Database 
Does Not Exist"; "The 
Administration Requests 
database cannot be found on 
the current server. Please 
contact your server 
administrator.")))))); 
@Return("")); 

Action: Delete 

Formula: synch := "";AdminFileName := 

,, admin4.nsf , ;CurrentServer := 
@Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFileName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));NamesAccess ;= 
@V4UserAccess(@DbName);N 
amesAccessLevel := 
@TextToNumber(@Subset(Na 
mes Access; 

1));NamesDeleteAccess := 
@TextToNumber(@Subset(Na 
mesAccess; -1)); Delete Verify := 
@Prompt([YESNO]; 
"Verification"; "You have 
requested to delete the person 
record for " + 
@Name([Abbreviate]; 
@Subset(FullName; 1)) + Do 
you wish to 

continue?");@lf(DeleteVerify = 
©True; @lf(CurrentServer = ""; 
@Command([EditClear]); 



304 



@lf(@Text(AdminPExist) = "1"; 
@lf(AdminPAccessLevel > 2 & 
AdminPCreateAccess > 0; 
@lf(NamesAccessLevel > 3 & 
NamesDeleteAccess > 0; 
@Do(@Set("synch"; 
@Prompt([YESNOCANCEL]; 
"Immediate or via Administration 
Process?"; "By selecting YYesV 
the action you have requested 
will take place immediately, and 
affect all references to this 
Person in this Address Book. 
(NOTE: This may take 
awhile.. .)")); @lf(synch = 
@True; 

@lf(@AdminPerformAction([Del 
eteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OK]; "Completed 
Successfully"; 'The userVs 
name has been removed 
completely from this Address 
Book7; @Prompt([OK]; "Error; 
"You have encountered an 
error. The userVs name has not 
been removed completely. 
Please try again. 1 ')); synch = 
©False; 

@lf(@AdminCreateRequest([De 
leteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OK]; "Request 
Successful"; "Your request to 
delete this username has been 
successfully submitted to the 
Administration Requests 
database."); @Prompt([OK]; 
"Error"; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again.")); 

@Retum(@Prompt([OK]; 
"Action Cancelled"; "Action has 
been cancelled.")))); 
NamesAccessLevel > 2 & 
NamesDeleteAccess > 0; 
@lf(@AdminCreateRequest([De 
leteUser]; CurrentServer : 
AdminFileName; "*"; 
@V3UserName); 
@Prompt([OK]; "Request 
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Successful"; 'Your request to 
delete this username has been 
successfully submitted to the 
Administration Requests 
database."); @Prompt([OK]; 
"Error; 'You have encountered 
an error. The request was not 
submitted properly. Please try 
again.")); NamesAccessLevel < 
3 | NamesDeleteAccess = 0; 
@Return(@Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation.")); 
@Retum(@Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access to 
perform the requested 
operation."))); 
@Return(@Prompt([OK]; 
"Insufficient Access"; "You are 
not authorized to create 
requests in the Administration 
Requests Database."))); 
@Return(@Prompt([OK]; 
"Admin. Requests Database 
Does Not Exist"; "The 
Administration Requests 
database cannot be found on 
the current server. Please 
contact your server 
administrator.")))); 
@Return(@Prompt([OK]; 
"Action Cancelled"; "You have 
cancelled deleting this 
person."))); 

Action: Copy to Personal Address 

Book 

@Command([ToolsRunMacro]; 
"(Copy to Personal Address 
Book)"); 

Recertify Person 

AdminFileName := 
"adrtiin4.nsf ;CertLogFileName 
:= n certlog.nsf;CurrentServer := 
@Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName) ;AdminPAcces 
s := 

@V4UserAccess(CurrentServer 
AdminFileName);AdminPAcces 



Formula: 



Action: 

Formula: 
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sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));CertLogExist := 
@DbExists(CurrentServer : 
CertLogFileName);CertLogAcce 
ss := 

@V4UserAccess(CurrentServer 

CertLogFileName);CertLogAcce 
ssLevel := 

@TextToNumber(@Subset(Cert 
Log Access; 

1));CertLogCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(CertLogAccess; 2); - 
1));@lf(@Text(AdminPExist) = 
n 1 M & @Text(CertLogExist) = 
"1"; @lf((AdminPAccessLevel > 
2 & AdminPCreateAccess > 0) 
& (CertLogAccessLevel > 2 & 
CertLogCreateAccess > 0); 
@Do(@PostedCommand([View 
Certify]); 

@PostedCommand([EditDesele 
ctAII])); 

@Return(@lf((AdminPAccessL 
evel < 3 | AdminPCreateAccess 
= 0); @Prompt([OK]; "Error"; 
"You do not have sufficient 
rights in the Administration 
Request database to perform 
this operation. Please see your 
Administrator."); 
(CertLogAccessLevel < 3 | 
CertLogCreateAccess = 0); 
@Prompt([OK]; "Error; "You do 
not have sufficient rights in the 
Certification Log file to perform 
this operation. Please see your 
Administrator."); ""))); 
@Return(@lf(@lsError(AdminP 
Exist); @Prompt([OK]; "Error; 
"You have received the 
following error trying to open the 
Administration Request 
database: " + 
@Text(AdminPExist) + " 
Please correct the error and 
retry."); @Text(AdminPExist) = 
"0"; @Prompt([OK]; "Error; 
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"The Administration Request 
database does not exist on this 
server. In order to perform this 
operation you must have an 
Administration Request 
database and you need at least 
Author access."); 
@lsError(CertLogExist); 
@Prompt([OK]; "Error"; "You 
have received the following 
error trying to open the 
Certification Log database: " + 
@Text(CertLog Exist) + " 
Please correct the error and 
retry."); @Text(CertLogExist) = 
"0"; @Prompt([OK]; "Error; 
"This action requires a 
Certification Log file. This file 
was not found. Please see your 
Administrator."); ""))); 
Action: Rename Person 

Formula: AdminFileName := 

"admin4.nsf";CertLogFileName 
:= "certlog.nsf'jCurrentServer := 
@Subset(@DbName; 
1);AdminPExist := 
@DbExists(CurrentServer : 
AdminFileName);AdminPAcces 
s := 

@V4UserAccess(CurrentServer 

AdminFileName);AdminPAcces 
sLevel := 

@TextToNumber(@Subset(Ad 
minPAccess; 

1));AdminPCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(AdminPAccess; 2); - 
1));CertLogExist := 
@DbExists(CurrentServer : 
CertLogFileName);CertLogAcce 
ss := 

@V4UserAccess(CurrentServer 

CertLogFileName);CertLogAcce 
ssLevel := 

@TextToNumber(@Subset(Cert 
Log Access; 

1));CertLogCreateAccess := 
@TextToNumber(@Subset(@S 
ubset(CertLogAccess; 2); - 
1));@lf(@Text(AdminPExist) = 
. "1" & @Text(CertLogExist) = 
"1"; @lf((AdminPAccessLevel > 
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2 & AdminPCreateAccess > 0) 

& (CertLogAccessLevel > 2 & 

CertLogCreateAccess > 0); 

@Do(@PostedCommand([View 

RenamePerson]); 

@PostedCommand([EditDesele 

ctAII])); 

@Return(@lf((AdminPAccessL 
evel < 3 | AdminPCreateAccess 
= 0); @Prompt([OK]; "Error; 
"You do not have sufficient 
rights in the Administration 
Request database to perform 
this operation. Please see your 
Administrator."); 
(CertLogAccessLevel < 3 | 
CertLogCreateAccess = 0); 
@Prompt([OK]; "Error; "You do 
not have sufficient rights in the 
Certification Log file to perform 
this operation. Please see your 
Administrator."); ""))); 
@Return(@lf(@lsError(AdminP 
Exist); @Prompt([OK]; "Error;, 
"You have received the 
following error trying to open the 
Administration Request 
database: " + 
@Text(AdminPExist) + " 
Please correct the error and 
retry."); @Text(AdminPExist) = 
"0"; @Prompt([OK]; "Error; 
"The Administration Request 
database does not exist on this 
server. In order to perform this 
operation you must have an 
Administration Request 
database and you need at least 
Author access."); 
@lsError(CertLogExist); 
@Prompt([OK]; "Error; "You 
have received the following 
error trying to open the 
Certification Log database: " + 
@Text(CertLogExist) + " 
Please correct the error and 
retry."); @Text(CertLogExist) = 
"0"; @Prompt([OK]; "Error; 
"This action requires a 
Certification Log file. This file 
was not found. Please see your 
Administrator."); ""))); 
Set Password Fields 
CheckPasswordSave := 
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CheckPassword;PasswordGrac 
ePeriodSave := 

PasswordGracePeriod;Passwor 
dChangelntervalSave := 
PasswordChangelnterval;FIELD 
CheckPassword := 
CheckPassword;FIELD 
PasswordGracePeriod := 
PasswordGracePeriod;FIELD 
PasswordChangelnterval := 
PasswordChangelnterval;Curre 
ntServer := 
@Subset(@DbName; 
1);AdminDb := 

"admin4.nsf ;NamesAccess := 
@V4UserAccess(@DbName);N 
amesAccessLevel := 
@TextToNumber(@Subset(Na 
mesAccess; 

1));@lf((NamesAccessl_evel > 
3) | (NamesAccessLevel = 3 & 
@Contains(@UserRoles; . 
"[UserModifier]")); 
@lf(@Prompt([YESNO]; "Set 
Password Fields"; "You are 
about to set the password fields 
for the selected person records. 
Do you want to continue?"); 
@Do(@lf(@DialogBox("(SetPas 
swordFields)"; [AutoVertFit] : 
[AutoHorzFit] : [NoNewFields]); 
@Do(@lf(@AdminCreateReque 
st([SetPasswordFields]; 
CurrentServer : AdminDb; "*"; 
@UserName; CheckPassword; 
@lf((PasswordGracePeriod = 
"") I 

(@lsNumber(PasswordGracePe 
riod) = ©False); 0; 
PasswordGracePeriod); 
@lf((PasswordChange!nterval = 
n l\ 

(@lsNumber(PasswordChangel 
nterval) = ©False); 0; 
PasswordChangelnterval)); 
@Prompt([OK]; "Completed 
Successfully"; 'The request has 
been successfully submitted to 
the Administration Request 
Database."); @Prompt([OK]; 
"Error; 'You have encountered 
an error. At least one of the 
requests was not submitted. 
Please try again.")); 
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Action: 
Formula: 



Action: 
Formula: 



Action: 
Formula: 



@SetField("CheckPassword"; 
CheckPasswordSave); 
@SetField( M PasswordGracePeri 
od"; 

PasswordGracePeriodSave); 

@SetField("PasswordChangelnt 

erval"; 

PasswordChangelntervalSave)); 

@Return(@Prompt([OK]; 

"Action Cancelled"; 'The action 

has been cancelled")))); 

@Return(@Do(@SetField("Che 

ckPassword"; 

CheckPasswordSave); 

@SetField("PasswordGracePeri 

od"; 

PasswordGracePeriodSave); 

@SetField("PasswordChangelnt 

erval"; 

PasswordChangelntervalSave); 
@Prompt([OK]; "Action 
Cancelled"; 'The action has 
been cancelled")))); 
@Return(@Prompt([OK]; 
"Insufficient Access"; "You do 
not have sufficient access in the 
address book to complete this 
action."))); 
Write Memo 

@lf(@TextToNumber( 
©Version) < 146; 
@Return(@Prompt([OK]; 
"Error; "You must use Notes 
4.6 or above to use this 
action.")); 

@Command([ToolsRunMacro]; 
"(CreateMailMemo)")); 
Schedule Meeting 

@lf(@TextToNumber( 
©Version) < 146; 
@Return(@Prompt([OK]; 
"Error"; 'You must use Notes 
4.6 or above to use this 
action.")); 

@Command([ToolsRunMacro]; 
"(ScheduleMeeting)")); 
Visit Web Page 
@lf(WebSite != ""; 
@URLOpen(WebSite); 
@Prompt([OK]; "No Web Page 
Defined"; "This document has 
no Web page defined.")); 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



(Client) 

07/05/1999 02:15:33 AM 

[Not Assigned] 

No 

Disabled 

Collapsed 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = 
"ClientForm")); 

1 

Client No 
Client_No 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Client Name 
ClientJMame 
17 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 



Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 
Formula: 

Action: 

Formula: 



Action: 

Formula: 



No 
3 

Client No 
Clientjvlo 
7 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

ClientDocID 
ClientDocID 
24 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Add A New Client 

@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(""; "" : ""; 
"ProjectTypes"; 1);List := 
@if(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 
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Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 

Create New Subtask 

@lf(Form = "Task"; 
@Command([Compose]; 
"Subtask"); @Prompt([OK]; 
"Error; "Please select the 
associated Task before creating 
a new Subtask/ 1 )); 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 



(Keywords) 

04/20/1999 02:06:23 PM 

[Not Assigned] 

No 

Disabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "EvProjKeys"; 
1 

Modified 
©Modified 
13 Characters 

No 
No 
No 

General 

No 

No 
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Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative. Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



No 

1 1/03/1 999 05:36:20 PM 

Ascending 

Left 

None 

No 

2 

Document 
Form 

6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

3 

CopyrightEvent 
ET1 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

4 

PatentEvent 
ET2 

8 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 
Ascending 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
* Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 



Left 
None 
No 
5 

TrademarkEvent 
ET3 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

6 

C&AEvent 
ET4 

6 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

7 

LitEvent 
ET5 

6 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 



Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



8 

OtherEvent 
ET6 

7 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

9 

TMDes 
EDI 

5 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

10 

PatDes 
ED2 

5 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

11 

CyType 
PT1 



Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 



5 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

12 

TMType 
PT2 

5 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Lett 

None 

No 

13 

PatType 
PT3 

5 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

14 

ProjCountry 
PC1 

21 Characters 
New Line 
No 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 



Action: 

Formula: 



Action: 

Formula: 



r 



Action: 

Formula: 



Action: 

Formula: 



No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(""; "" : ""; 
"ProjectTypes"; 1);List:= 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 
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No Response Hierarchy: 
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Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 
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Responses Only: 
Icon: 

Number Format: 

Percentage (value * 1 00)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 



Task.")); 



(Matter) 

07/05/1999 02:15:36 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT ((Form = "Matter")); 
1 

ClientJMo 

Client JMo + Matterjvlo; 
6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Matter Name 
MatterJMame 
27 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

No 

Left 

None 
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Hide Detail Values: No 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 

Subcomponents: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



(ProjectTypes) 

03/23/1999 09:53:22 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = 
"(ProjectProfile)"; 



ProjectTypes 
ProjectType 
15 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 



(ReportClient) 

08/26/1999 11:06:00 AM 

[Not Assigned] 

No 

Enabled 
Expanded 
None 
Automatic 
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Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 

Formula: 



Action: 

Formula: 



Action: 



Never 
All Users 
No 

SELECT Form = "ClientForm"; 
1 

[Not Assigned] 
Client_Name 
11 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
©Comma nd ([Compose] ; 
"Matter); @Prompt([OK]; 
"Error"; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbCoiumn(""; "" : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; m 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
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Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 



@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error"; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 



(ReportMatter) 

07/05/1999 02:15:41 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Matter"; 
1 

[Not Assigned] 
ClientJMame 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending, Categorized 

Left 

None 

No 

2 

[Not Assigned] 
MatterJMame 
45 Characters 
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List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 
Formula: 



Action: 

Formula: 



Action: 

Formula: 



Action: 

Formula: 



No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:20 PM 

Ascending 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter/')); 
Create New Project 
TList := ©DbColumnC; "" : ""; 
"ProjectTypes"; 1);List:= 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
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f 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: , 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 
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Time Format: 

Sorting: 
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List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Time Format: 
Sorting: 



"Please select the associated 
Project before creating a new 
Task.")); 



(ReportProjectLookup) 

07/05/1999 02:15:46 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Project"; 
1 

Matter 

Matter_Name 
4 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Project 

Project + " - " + PDescrip; 
65 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 
No 
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Justification: 
Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 

Formula: 



Action: 
Formula: 



Action: 
Formula: 



Left 
None 
No 
3 

[Not Assigned] 

@Text(@DocumentUniquelD); 
14 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter. ")); 
Create New Project 
TList := @DbColumn(""; "" : ""; 
"ProjectTypes"; 1);List:= 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error"; "An error has occured. 
Please try again.' 1 )); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project.")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
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Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 
Column Number: 

Column Title: 

Column Formula: 

Column Width: 

List Separator: 

Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 



"Error; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error"; 
"Please select the associated 
Project before creating a new 
Task.")); 



(ReportProject) 

07/05/1999 02:15:52 AM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Project"; 
1 

[Not Assigned] 
ClientJMame 
1 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending, Categorized 

Left 

None 

No 

2 

Matter 

Matter_Name 
23 Characters 

No 
No 
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Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 
Formula: 



No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

3 

[Not Assigned] 

Project + " - " + PDescrip; 

32 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

4 

[Not Assigned] 

@Text(@DocumentUhiquelD); 
14 Characters 

Yes 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

Edit Selected 

@Co mma n d ([Ed it Docu me nt]) ; 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter); @Prompt([OK]; 
"Error; "Please select the 



328 



Action: 

Formula: 



Action: 

Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



associated Client before 
creating a new Matter.")); 
Create New Project 
TList := ©□t^oIumnC"; : ,m ; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again/ 1 )); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter"; 
@Command([Compose]; ""; 
"Project"); @Prompt([OK]; 
"Error"; "Please select the 
associated Matter before 
creating a new Project. ")); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error ; "Please select the 
associated Project before 
creating a new Event.")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



Name: 

Last Modification: 
Comment: 

Default Database View: 
No Response Hierarchy: 
Categories Initially: 
Unread Marks: 
Refresh Frequency: 
Discard Index: 
View May Be Used By: 
Time Relative Formulas: 
Selection Formula: 
Subcomponents: 



(Routing Profile) 

03/18/1999 02:21:57 PM 

[Not Assigned] 

No 

Enabled 

Expanded 

None 

Automatic 

Never 

All Users 

No 

SELECT Form = "Routing"; 
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Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 

Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 



1 

Modified 
©Modified 
13 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

2 

Document 
Form 

6 Characters 

No 
No 
No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

3 

Resp Atty 

ProAtty 

26 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

4 

ProsRout Cy1 
ProsRouteCpyl 
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Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Column Number: 
Column Title: 
Column Formula: 
Column Width: 
List Separator: 
Hidden: 

Responses Only: 
Icon: 

Number Format: 

Percentage (value * 100)%: 

Parentheses on Negative Numbers: 

Punctuated at Thousands: 

Time Format: 

Sorting: 

Justification: 

Totals: 

Hide Detail Values: 
Action: 

Formula: 
Action: 

Formula: 

Action: 



10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

5 

ProsRout Cy3 

ProsRouteCpy3 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

Ascending 

Left 

None 

No 

6 

LitRout Cy1 

LitRouteCpyl 

10 Characters 

New Line 

No 

No 

No 

General 
No 
No 
No 

11/03/1999 05:36:21 PM 

No 

Left 

None 

No 

Edit Selected 

@Command([EditDocument]); 
Add A New Client 
@Command([Compose]; 
"ClientForm"); 
Create New Matter 
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Formula: 



Action: 

Formula: 



Action: 
Formula: 



Action: 

Formula: 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



@lf(Form = "ClientForm"; 
@Command([Compose]; 
"Matter"); @Prompt([OK]; 
"Error; "Please select the 
associated Client before 
creating a new Matter.")); 
Create New Project 
TList := @DbColumn(""; : ""; 
"ProjectTypes"; 1);List := 
@lf(@lsError(TList); 
@Return(@Prompt([OK]; 
"Error; "An error has occured. 
Please try again.")); 
TList);ENVIRONMENT 
SubType := 

@Prompt([OKCANCELLIST]; 
"New Project"; "Choose one of 
the following:"; @Subset(List; 
1); List);@lf(Form = "Matter; 
@Command([Compose]; ""; 
"Project' 1 ); @Prompt([OK]; 
"Error; "Please select the 
associated Matter before 
creating a new Project. 1 ')); 
Create New Event 
@lf(Form = "Project"; 
@Command([Compose]; 
"Event"); @Prompt([OK]; 
"Error; "Please select the 
associated Project before 
creating a new Event. ")); 
Create New Task 
@lf(Form = "Project"; 
@Command([Compose]; 
"Task"); @Prompt([OK]; "Error; 
"Please select the associated 
Project before creating a new 
Task.")); 



Shared Field Information 

Field: BilLAtty 

Datatype: Names 

Help Description: [Not Assigned] 

Field Type: Editable 

Sign When Mailing/In Section: No 

Encryption: Disabled 

Update Requires Editor Access: No 

Is Scripted: No 
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Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 



03/29/1999 03:06:58 PM 



client 

Text 

[Not Assigned] 
Computed when composed 
No 

Disabled 
No 

Client_Name 
No 

03/29/1999 03:06:59 PM 



client_name 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

Client_Name 
No 

03/29/1999 03:06:59 PM 



cIMio 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

ClientJMo 
No 

03/29/1999 03:07:00 PM 



comments 

Rich Text 
[Not Assigned] 
Editable 
No 
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Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 



Disabled 

No 

No 

03/29/1999 03:07:00 PM 



Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 



cre_date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 
Yes 

©Created 
No 

07/28/1999 10:03:24 AM 



description 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:01 PM 



History 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1 999 03:07:02 PM 



Field: 

Datatype: 

Help Description: 



inventor 

Text 

[Not Assigned] 



Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:02 PM 



key_country 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

United States (US) 
Afghanistan (AF) 
Albania (AL) 
Algeria (DZ) 
Andorra (AD) 
Angola (AO) 
Anguilla (Al) 
Antigua (AG) 
Argentina (AR) 
Armenia (AM) 
Aruba (AB) 
Australia (AU) 
Austria (AT) 
Azerbijan (AZ) 
Bahamas (BS) 
Bahrain (BH) 
Bangladesh (BD) 
Barbados (BB) 
Belarus (BY) 
Belarussia (BL) 
Belgium (BE) 
Belize (BZ) 
Benelux (BX) 
Bermuda (BM) 
Bhutan (BT) 
Bolivia (BO) 
Boputhatswana (BP) 
Bosnia-Hercegovina (BA) 
Botswana (BW) 
Brazil (BZ) 

British Virgin Islands (BV) 

Brunei (BN) 

Bulgaria (BG) 

Burundi (Bl) 

Cambodia (CB) 

Canada (CA) 

Cape Verde Islands (CV) 



Cape Verde (CV) 

Cayman Islands (KY) 

Central African Republic (CF) 

Chad (TD) 

Chile (CL) 

China (CN) 

Colombia (CO) 

Congo (CG) 

Costa Rica (CR) 

Croatia (HR) 

Cuba (CU) 

Cyprus (CY) 

Czech Republic (CZ) 

Denmark (DK) 

Djibouti (DJ) 

Dominica (DM) 

Dominican Republic (DO) 

Ecuador (EC) 

Egypt (EG) 

El Salvador (SV) 

England (GB) 

Eritrea (ER) 

Estonia (EE) 

Ethopia (ET) 

European Community TMK (CT) 

European Community (EU) 

Falkland Island (FK) 

Fiji Islands (FJ) 

Finland (Fl) 

France (FR) 

Gabon (GA) 

Gambia (GM) 

Gaza District (GZ) 

Gazadia (GZ) 

Georgia (GE) 

Germany East (DD) 

Germany West (DE) 

Ghana (GH) 

Gibraltar (Gl) 

Gilbert (GL) 

Great Britain (GB) 

Greece (GR) 

Grenada (GD) 

Guam (GX) 

Guatemala (GT) 

Guernsey (GS) 

Guinea (GN) 

Guyana (GY) 

Haiti (HT) 

Honduras (HN) 

Hong Kong (HK) 

Hungary (HU) 

Iceland (IS) 

India (IN) 
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Indonesia (ID) 
International (WO) 
Iran (IR) 
Iraq (IQ) 
Israel (IL) 
Italy (IT) 
Ivory Coast (CI) 
Jamaica (JM) 
Japan (JP) 
Jersey (JE) 
Jordan (JO) 
Kazakhstan (KZ) • 
Kenya (KE) 
Kiribati (Kl) 
Kuwait (KW) 
Kyrgystan (KG) 
Laos (LA) 
Latvia (LV) 
Lebanon (LB) 
Lesotho (LS 
Liberia (LR) 
Libya (LY) 
Lichtenstein (LI) 
Lithuania (LT) 
Luxembourg (LU) 
Macau (MM) 
Macau (MO) 
Macedonia (MK) 
Madagascar (MG) 
Malawi (MW) 
Malaya (MQ) 
Malaysia (MY) 
Maldiv(MV) 
Mali (ML) 
Malta (MT) 
Mauritius (MU) 
Mexico (MX) 
Moldova (MD) 
Monaco (MC) 
Mongolia (MN) 
Montserrat (MS) 
Morocco (MA) 
Mozambique (MZ) 
Myanmar (BU) 
Namibia (NA) 
Nepal (NP) 

Netherlands Antilles (NT) 
Netherlands (NL) 
New Zealand (NZ) 
Nicaragua (Nl) 
North Korea (KP) 
Norway (NO) 
Oman (OM) 
Pakistan (PK) 
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Panama (PA) 
Papua New Guinea (PG) 
Paraguay (PY) 
PCT World (WO) 
Peru (PE) 
Philippines (PH) 
Poland (PL) 
Portugal (PT) 
Puerto Rico (PO) 
Qatar (OA) 

Ras-al-Khaimah (RK) - 
Republic of Ireland (IE) 
Republic of Nambia (WA) 
Republic of Yemen (YD) 
Romania (RO) 
Russia (RU) 
Rwanda (RW) 
Sabah (SB) 
San Marino (SM) 
Sarawak (SJ) 
Saudi Arabia (SA) 
Senegal (SN) 
Seychelles (SC) 
Sierra Leone (SL) 
Singapore (SG) 
Slovak Republic (SK) 
Slovenia (SI) 
Solomon Islands (SS) 
Somalia (SO) 
South Africa (ZA) 
South Korea (KS) 
Spain (ES) 
Sri Lanka (LK) 
St. Christopher (CP) 
St. Helena (SH) 
St. Kitts-Nevis (KN) . 
St. Lucia (LC) 
St. Vincent (VC) 
Sudan (SD) 
Surinam (SR) 
Swaziland (SZ) 
Sweden (SE) 
Switzerland (CH) 
Syrian Arab (SY) 
Taiwan (TW) 
Tajikistan (TJ) 
Tangier (Tl) 
Tanzania (TY) 
Thailand (TH) 
Togo (TG) 
Tonga (TO) 
Transkei (TE) 
Trinidad (TT) 
Tunisia (TN) 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 



Turkey (TR) 

Turkish Republic of North 
Cyprus (CT) 
Turkmenistan (TM) 
Turks & Caicos (TC) 
Tuvalu (EL) 
Uganda (UG) 
Ukraine (UA) 

United Arab Emirates (AE) 
United Kingdom (GB) 
Upper Volta(BF) 
Uraguay (UY) 
Uzbekistan (UZ) 
Vanuata (VU) 
Venda (VD) 
Venezuela (VE) 
Vietnam (VN) 
Virgin Islands (VI) 
West Bank (WB) 
Western Samoa (WS) 
World (WO) 

Yemen Democratic Republic 
(YD) 

Yemen North (YE) 
Yugoslavia 
Zaire (ZR) 
Zambia (ZM) 
Zanzibar (ZZ) 
Zimbabwe (ZW) 
No 

Disabled 

No 

No 

03/29/1999 03:07:02 PM 



mat_no 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

Matter_No 
No 

03/29/1999 03:07:04 PM 



PDescrip 
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Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:11 PM 



PoA 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

Yes 

@DbColumn(" M ; "" : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 

No 

No 

07/28/1999 10:03:28 AM 



pofa_fa 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:12 PM 



proj 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

Project 
No 
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Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Default Value Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 



03/29/1999 03:07:12 PM 



PropClose 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:12 PM 



ProtectFromArchive 

Keywords 

[Not Assigned] 

Editable 

Radio Buttons 

No|0 

Yes|1 

No 

Disabled 
No 
"0 W 
No 

03/29/1999 03:07:13 PM 



related__apps 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:13 PM 



related_matter_no 

Text 

[Not Assigned] 
Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi- Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



No 

Disabled 

No 

No 

03/29/1999 03:07:14 PM 



resp_atty 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 

No 

@DbColumn(""; "" : ""; "(Routing 

Profile)"; 3); 

No 

Disabled 
No 

@lf(!@lsNevyDoc; ""; @lf(Form 
= "ClientForm"; "Not Assigned"; 
resp_atty)); 
No 

03/29/1999 03:07:15 PM 



route_author 

Author Names 
[Not Assigned] 
Computed 
No 

Disabled 
No 

@Name([CN]; ©UserName); 
No 

03/29/1999 03:07:15 PM 



serial__number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is, Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 

Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 

Last Modification: 
JavaScript & HTML Code: 
LotusScript Code: 

[None] 



03/29/1999 03:07:15 PM 



Statusjl 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

03/29/1999 03:07:16 PM 



TEDateComplete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:16 PM 



terminationjlate 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

03/29/1999 03:07:17 PM 



Subform Information 

Name: 

Last Modification: 

Include in Insert Subform list: 

Include in New Form dialog: 



action_review 

03/29/1999 01:18:15 PM 

Yes 

No 



Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Next_Action 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 

No 

No 

NextActionBy 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Action_Date 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

DateComplete 

Time 

11/03/1999 05:36:21 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = Select-"; 
@Failure("Please designate 
priority."); ©Success); 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Hotspot 

Type: 

Caption: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 



No 

Status 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(TEArchive = "no" | 
TEArchive = ""; "Open"; 
"Completed"); 
No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

trakjd 
Text 

[Not Assigned] 

Computed when composed 

No 

Disabled 
No 

©Unique 
No 

Summary 

Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Button 

Close and Archive Event 
Yes, see below 
Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

ii ii 

No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 

(Button) Close and Archive Event 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
'Define some variables 
ActionHist$=uidoc.FieidGetTextCArchive") 
OldAction$=uidoc.FieldGetText("Next_Action") 
Due$=uidoc.FieldGetText("DateDue") 
Complete$=uidoc.FieldGetText("DateComplete") 
TraklD$=uidoc.FieldGetText^^akJd ,, ) 
Sum$=uidoc.FieldGetText("Summary n ) 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + "Tracking ID: " + TraklD$ 

&Chr(010) +"Due on: " + Due$ 
&Chr(010) + "Closed on: " + 
Complete$ &Chr(01 0) + Sum$ 
&Chr(010)+ "Certified closed 
by " + 

Session.CommonllserName 

'Append the closed action to the Archive 
lfOldAction$="" Then 

Ok%=Messagebox("There is no Action to close!",0+48+0+0,"ERROR") 
If Ok%=1 Then 

Exit Sub 
End If 
End If 

lfComplete$=""Then 

Ok%= MessageboxfYou must specify a completion date!",0+48+0+0, "ERROR") 

If Ok%=1 Then 
Exit Sub 

End If 
End If 

lfSum$=""Then 

Ok%=Messagebox("You must provide a summary of action 

taken!",0+48+0+0,"ERROR") 

If Ok%=1 Then 
Exit Sub • 
End If 
End If 

'Certify that the action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed.",4+32+0+0, 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText ("Archive", NewActionHist$ &Chr(010) +"- : 
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&Chr(010) + ActionHist$) 

' Clear the subform for a new entry 

Call uidocPieldSetText("NexW\ction7 ,n ) 
Call uidoc.FieldSetText("DateDue", ,m ) 
Call uidocFieldSetTextCPriority","") 
Call uidocFieldSetTextrHours";'") 
Call uidoc.FieldSetText( n NextActionBy M ; ,M ) 
Call uidocPieldSetText( i DateComplete , 7 ,n ) 
Call uidoc.FieldSetText("Status","On Going") 
Call uidocPieldSetTextOrakjd","") 
Call uidoc.FieldSetText( ,, Summary ,, I H ") 
End If 
End Sub 



Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 



CounselAdvice 

03/29/1999 01:18:17 PM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"C&A" 
No 

affiliated_pty 

Text 

Comma, New Line 
New Line 

Please enter comma after each 

Affiliated Party 

Editable 

No 

Disabled 

No 

No 

aff_pty__counsel 

Text 

Comma, New Line 
New Line 

Please enter comma after each 

Affiliated Party 

Editable 

No 

Disabled 

No 

No 

type_project 

Keywords 
[Not Assigned] 
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Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Hotspot 

Type: 

Caption: 

Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 



Editable 

Standard 

Yes 

Validity/Infringement 

Analysis and/or Opinion 

Counseling 

Advice 

License 

Contract 

Joint Development Agreement 

Transactional 

No 

Disabled 

No 

No 

comments 



Event orTask Closure 

03/29/1999 01:18:20 PM 

Yes . 
No 



Button 

Close This Task 

Yes, see below 

Untitled_Section_1 

Section 

Comma 

Responsible Attorney 

Certificate: 

Computed 

No 

Disabled 
No 

resp_atty 
No 

P rotect From A rc h i ve 

TEDateComplete 

RA_Sig 

Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

RA_Sig 
No 
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Field: 

Datatype: 

Input Multi-Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



Untitled_Section2 

Section 
Comma 

IP Docket Manager Certificate: 

Computed 

No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 
Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

IPD_Sig 

Text 

[Not Assigned] 

Computed 

Yes 

Disabled 
No 

IPD_Sig 
No 

TEArchive 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

RACIosed 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
"no" 
No 

UnHideRA 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Default Value Formula: 
Is Scripted: 



"no" 
No 



Field: 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 



UnHideDM 

Text 

[Not Assigned] 

Editable 

No 

Disabled 



No 

"no" 

No 



JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Globals) 

Option Public 
%INCLUDE "Isconst.lss" 
(Form) Event orTask Closure 

Sub Postopen(Source As Notesuidocument) 
End Sub 
(Button) Close This Task 
Sub Click(Source As Button) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim uidoc As NotesUIDocument 

Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc As NotesDocument 

Dim doc2 As NotesDocument 

Dim maildoc As NotesDocument 

Dim view As NotesView 

Dim YesOrNo As Integer 

Dim OkCancel As Integer 

YesOrNo=Msgbox("Are you sure you want to close this Task?", MB_YESNO + 



If yesOrNo=IDNO Then 

Exit Sub 
End If 

'Unhide the closure info 

Call uidoc.FieldSetText("UnHideRA", "yes") 

Call uidoc. FieldSetText("RA_Sig", session. CommonUserName) 

Call uidoc.RefreshHideFormulas 

Call uidoc.Refresh 

*Get some data from the base document and set the variables 
yAtty$=u id oc. Field G etText("resp_atty") 
Project$=uidoc.FieldGetText ("Project") 
C!ient$=uidoc.FieIdGetTextfClientJVIame") 
ClientNo$=uidoc.FieldGetTextC l Client_No") 
Matter$=uidoc.FieldGetText("Matter_Name") 



MBICONQUESTION + 
MBJDEFBUTTON2 + 
MB_APPLMODEL, "Close 
Task?") 



MatterNo$=uidoc.FieldGetText( M Matter_No") 

TaskName$=uidoc.FieldGetText("Task") 

People$=uidoc.FieldGetText( M lit_route_ev") 

Sig$=uidoc.FieldGetText("RA_Sig") 

EDate=uidoc.FieldGetText( , TEDateComplete") 

Ref$=uidoc.FieldGetText("Task") 

'Do some field validation 

lfSig$="" Or EDate="" Then 

Goto Bailout2 
End If 

'Lets check the sig to make sure it is the RA 
lfSig$<> yAtty$Then 

Ok%=Messagebox("The name in the Responsible Attorney Certificate Signature field 

in incorrect." &_ 

" Only the Responsible Attorney may close this task!",0+48+0+0,"lncorrect 

Information") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Electronically route the info to the default profile and the docket manager 

Set maildoc = New NotesDocument(db) 

maildoc.Form="MailNot" 

'Set the default routing (To and CC fields) and bring up the form 

'If (Project$="Prosecution: Trademark" Or Project$="Prosecutioh: Patent" OrProject$= 

"Prosecution: Copyright" Or 
Project$="Litigation") Then 

Set view = db.GetView( "(Routing Profile)" ) 
Set doc = view.GetFirstDocument 
Select Case Project$ 
Case "Prosecution: Patent" 

maildoc.SendTo=doc.Patent_Routing 
Case "Prosecution: Trademark" 

maildoc.SendTo=doc.TM_Routing 
Case "Presecution: Copyright" 

mialdoc.SendTo=doc.Cpy_Routing 
Case "Litigation" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
Case "Counselling and Advice" . 

maildoc.SendTo=uidoc.FieldGetText("lit - route_ev") 
Case "Other" 

maildoc.SendTo=uidoc.FieldGetText("lit_route_ev") 
End Select 

maildoc.CopyTo=Sender$ 
maildoc.Subject-Task Closure Notification" 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 

Dim rtStyle As NotesRichTextStyle 

Set rtStyle=session.CreateRichTextStyle 

With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 
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rtStyle.bold=False 
.AppendStyle(rtStyle) 
.AppendText "Client - " + Clients 
.AddNewLine 1 
.AddTab 2 

.AppendText "Matter - " + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Project$ + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendStyle(rtStyle) 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "Task 

Completion",Maildoc) 

lfFlag=True Then 

Set item=maildoc.GetFirstltem("EditTxt") 

rtStyle.bold=False 

Call rtibody .AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText (Text) 

Call rtibody. AddNewLine (1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task — >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maildoc.EditTxt="" 
maildoc.Form="Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 

'End If 'message to default group 

'Find out if we need to notify the Docket Manager 

YesOrNo%=Messagebox("Does this Task require notification of the Docket Manager and 

removal from the 
Docket?",4+32+0+0, "Remove 
From Docket?") 

lfYesOrNo%=7Then 

Call uidoc.FieldSetText("RACIosed", "yes") 
Call uidoc.FieldSetText('TEArchive", "yes") 
Call uidoc.FieldSetText("Status", "Completed") 

Call uidoc.FieldSetText("IPD_Sig", "Removal from Docket not required") 
Call uidoc.FieldSetText("DocDateComplete", Format(TEDateComplete, "Short Date")) 
Call uidco.FieldSetText("UnHideDM", "yes") 
Goto SaveAndCIose 
End If 
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'Notify the docket manager 
maildoc.Form-'MailNof 
maildoc.SendTo="" 
maildoc.body-"' 

maildoc.Subject="Task Closure Notification" 

maildoc.SendTo=doc.DocketMgr 

maildoc.CopyTo=Sender$ 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

rtStyle.bold=True 

.AppendStyle(rtStyle) 

.AppendText "Reference: " 

.AddTab 1 

rtStyle.bold=False 

.AppendStyle(rtStyle) 

.AppendText "Client - " + Client$ 

.AddNewLine 1 

.AddTab 2 

.AppendText "Matter - n + Matter$ + " [" + MatterNo$ + "]" 
.AddNewLine 2 

.AppendText "Please note that a task pertaining to: the " + Projects + " project has 

been completed." 

.AddNewLine 1 

.AppendText "The Task pertains to: " + Ref$ + "." 
.AddNewLine 2 

.AppendText "Please remove any reference to this task from the docket." 
.AddNewLine 2 
rtStyle.bold=True 
.AppendText "Comments: " 
End With 'rtibody 

maildoc.HoldTxt=rtiBody.GetFormattedText(False, 70) 

Flag=workspace.DiaIogBox("(MailNot)", True, True, False, False, False, False, "Task 

Completion",maildoc) 

lfFlag=True Then 

Set item=maiIdoc.GetFirstltem("EditTxt") 

rtStyle.bo!d=False 

Call rtiBody.AppendStyle(rtStyle) 

Forall Text In item.values 

Call rtibody.AppendText(text) 

Call rtibody.AddNewLine(1) 
End Forall 
With rtiBody 

.AddNewLine 2 

.AppendText "Please click here to view the Task information >" 

.AppendDocLink uidoc.document,"" 
.AddNewLine 2 
.AppendText AddCmt$ 
End With 

maiidoc.EditTxt="" 
maiidoc.Form-'Memo" 
maildoc.HoldTxt="" 
Call maildoc.Send(False) 
End If 

Ok%=Messagebox("This Task will be removed from the Active view when the Docket 
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Manager has removed it from 
the docket.",0+64+0+0, 
"Closure Successful") 

If0k%=1 Then 

Call uidoc.FieldSetText("RACIosed", "yes") 

Goto SaveAndClose 
End If 
'Else 

'Goto bailout 
'Bailout: 

'Ok%=Messagebox("No Notifications required for this Task Closure. " &_ 
"This Task will be removed from the Active view when the Docket Manager has 

removed it from the docket. 

",0+64+0+0,"Closure 

Successful") 

'lfOk%=1Then 

'Call uidoc.FieldSetText("RACIosed'\ "yes") 

'Goto SaveAndClose 
'End If 
Bailout2: 

Ok%=Messagebox("Please enter a Closing Date for the Task and press the 'Close This 

Task' or 'Remove From Docket' 
button 

again!",0+32+0+0,"Required 
Information") 

lfOk%=1 Then 

Exit Sub 
End If 
'End If 

'Start saving and closing the document for the last time. Do it here to avoid pressing the 

save/close button 

SaveAndClose: 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FieidGetText("resp_atty") 

TEDateComplete=uidoc.FieldGetText("TEDateComplete") 

'Define some other variables 

yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Set the PropClose field to Close so we can save the document 
Call uidoc.FieldSetText("PropClose", "Closed") 
'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End If 

lfxAtty$ <> yAtty$ Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ +. " 

from " + xAtty$ 

update$='Y" 
End If 

'check if task is being closed and write out to history 
If TEDateComplete <> "" Then 
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NewHist$ = NewHist$ &Chr(010) + "The Task was marked closed as of" + 

Format(TEDateComplete , 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
If update$="Y" Then 

Call uidoc.FieldSetText("Status_1 "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +"- 1 



« &chr(010) 

+ yhist$) 

End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.Close 
End Sub 
(Button) Remove from Docket 
Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim Session As New NotesSession 
Dim view As NotesView 
Dim routdoc As NotesDocument 
Set db=session.CurrentDatabase 
Sig$=uidoc.FieldGetTextOPD_Sig") 
EDate=uidoc.FieldGetTextC'DocDateComplete") 
'Unhide the closure info 
Call uidoc.FieldSetText("UnHideDM", "yes") 
Call uidoc.FieldSetText("IPD_Sig", session.CommonUserName) 
Call uidoc.RefreshHideFormulas 
Call uidoc.Refresh 
'Do some field validation 
lfSig$="" Or EDate= M " Then 

Ok%=Messagebox("Please provide a completion date for your action!" ,0+32+0+0, 

"Required Information") 

lfOk%=1Then 

Exit Sub 
End If 
End If 

'Lets check the sig to make sure it is the Docket Manager 
Set view = db.GetView( "(Routing Profile)" ) 
Set routdoc = view.GetFirstDocument 
If Sig$ <> routdoc.DocketMgr(O) Then 

Ok%=Messagebox('The name in the Docket Manager Certificate Signature field in 

incorrect." &_ 

" Only the Docket Manager may remove this Task from the 

Docket!",0+48+0+o;'lncorrect 
Information") 

If Ok%=1 Then 

Exit Sub 
End If 



355 



End If 

'Set these fields to close the document 
Call uidoc.FieldSetTextfTEArchive", "yes") 
Call uidoc.FieldSetText("Status", "Completed") 
Call uidoc.FieldSetText("PropClose", "Closed") 

Messagebox 'This Task has been closed and removed from the docket. It will be now be 

removed from the Active views." 
,0+64+0+0,"Closure Successful" 

'Start saving and closing the document for the last time do it here to avoid pressing the 

save/close button 

'Get some final values 

yTask$=uidoc.FieldGetText("Task") 

yAtty$=uidoc.FieldGetText("resp_atty") 

DocDateComplete=uidoc.FieldGetText("DocDateComplete") 

'Define some other variables 

yhist$=uidoc.FieldGetText("History") 

NewHist$ = "Modified on " + Date$+" "+Time$ + " by " + Session.CommonUserName 
update$="N" 

'Check each field for change to compile the change history 
If xTask$ <> yTask$ Then 

NewHist$ = NewHist$ &Chr(010) + "Task changed to: " + yTask$ + " from " + xTask$ 

update$="Y" 
End if 

lfxAtty$oyAtty$Then 

NewHist$ = NewHist$ &Chr(010) + "Responsible Attorney changed to: " + yAtty$ + " 

from " + xAtty$ 

update$="Y" 
End If 

'check if task is being closed and write out to history 
If DocDateComplete <> "" Then 

NewHist$ = NewHist$ &Chr(010) + "The Task was removed from the docket on " + 

Format(DocDateComplete, 
"Short Date") 

update$="Y" 
End If 

'Append the new changes to the History 
lfupdate$="Y"Then 

Call uidoc.FieldSetText("Status J "."Modified") 

Call uidoc.FieldSetText ("History", NewHist$ &Chr(010) +" 



« &Chr(010) 

+ yhist$) • 

End If 

'Save and close the document 
Call uidoc.Save 
Call uidoc.Close 
End Sub 



Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 



Litigation 

03/29/1999 01:18:22 PM 

Yes 

No 
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Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 



subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Litigation" 
No 

case_style 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

lit_type 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

Civil 

Administrative 
No 

Disabled 

No 

No 

civil_action_no 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

judge 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

appear_counsel 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

oppcounsel 



Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

is Scripted: 
Shared Field Reference: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

cq_counsel 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

comments 



NewClose 

03/29/1999 01:18:26 PM 

Yes , 

No 

Next_Action 

Keywords * 

[Not Assigned] 

Editable 

Standard 

No 

No 

Disabled 

No 

No 

Next Action By 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

DateDue 

Time 

11/03/1999 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 



Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords: 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Input Validation Formula: 



Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 



DateComplete 

Time 

11/03/1999 05:36:21 PM 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 

Priority 

Keywords 
[Not Assigned] 
Editable 
Standard 
No 

Urgent 

High 

Medium 

Low 

No 

Disabled 
No 

@lf(Priority = Select -"; 
@Failure("Please designate a 
priority."); ©Success); 
No 

Status 

Keywords 

[Not Assigned] 

Editable 

Standard 

No 

New 

Pending 

Completed 

No 

Disabled 
No 

"New" 

@lf(Status = "~ Select-"; 
@Failure("Please designate a 
status."); ©Success); 
No 

Hours 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 
No 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Input Multi- Value Separator(s): 
Display Multi-Value Separator: 
Section Title: 
Field Type: 



No 

trakjd 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(Next_Action != ""; 

©Unique; ""); 

No 

Summary 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Untitled_SectionJ 

Section 
Comma 

Responsible Attorney 

Computed 

No 

Disabled 
No 

@lf(resp_atty_1 != ""; 
resp_attyj; ""); 
No 

TEDateComplete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
Yes 

Disabled 

No 

No 

RA_Sig 
Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

Untitled_Section2 

Section t 
Comma 

IP Docket Manager 
Computed 



Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 
Time Format: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 

Is Scripted: 
Hotspot 

Type: 

Caption: 

Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 
Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 
(Button) Close Subtask 

Sub Click(Source As Button) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Works pace 
Dim uidoc As NotesUIDocument 



No 

Disabled 
No 

"[DocketMgr]" 
No 

DocDateComplete 

Time 

11/03/1999 
[Not Assigned] 
Editable 
Yes 

Disabled 

No 

No 

IPD_Sig 

Text 

[Not Assigned] 

Editable 

Yes 

Disabled 

No 

No 

TEArchive 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

@lf(IPD_Sig != & RA_sig != 

""; "yes"; "no"); 

No 

Button 

Close Subtask 
Yes, see below 
Archive 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

M it 

No 
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Set uidoc = workspace. CurrentDocument 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

'Define some variables 

ActionHist$=uidoc.FieldGetText("Archive H ) 

OldAction$=uidoc.FieIdGetText("Next„Action M ) 

Due$=uidoc.FieldGetText("DateDue") 

Complete$=uidoc.FieldGetText( n DateComp!ete") 

TraklD$=uidoc.FieldGetText("trakjd") 

Sum$=uidoc.FieldGetText("Summary") 

NewActionHist$ = "Action: " + OldAction$ &Chr(010) + bracking ID: " + TraklD$ 

&Chr(01 0) +"Due on: " + Due$ 
&Chr(010) + "Closed on: " + 
Completes &Chr(010) + Sum$ 
&Chr(010)+ "Certified closed 
by " + 

Session.CommonUserName 

'Append the closed action to the Archive 
lfOldAction$="" Then 

Ok%=Messagebox("There is no Action to cIose!",0+48+0+0,"ERROR") 
lfOk%=1 Then 

Exit Sub 
End If 
End If 

If Complete$="" Then 

Ok%= Messagebox("You must specify a completion date!",0+48+0+0, "ERROR") 

lfOk%=1Then 
Exit Sub 

End If 
End If 

lfSum$="" Then 

Ok%=Messagebox("You must provide a summary of action 

taken!",0+48+0+0,"ERROR") 

If Ok%=1 Then 

Exit Sub 
End If 
End If 

'Certify thatthe action should be closed 

YesOrNo%=Messagebox("l " +Session.CommonUserName+ " certify that this subtask 

action is closed." J 4+32+0+0, 
"Action Review Certification") 

lfYesOrNo%=6Then 

Call uidoc.FieldSetText ("Archive", NewActionHist$ &Chr(010) +"-— 



&Chr(010) + ActionHist$) 

' Clear the subform for a new entry 

Call uidoc.FieldSetText("Next_Action" f "") 

Call uidocFieldSetTextC'DateDue";"') 

Call uidoc.FieldSetTextC'Priority","") 

Call uidoc.FieldSetTextfHours","") 

Call uidoc.FieldSetTextC'NextActionBy","") 

Call uidoc.FieldSetText("DateComplete" f "") 

Call uidoc.FieldSetText("Status","On Going") 
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Call uidocPieldSetText('trakjd"r) 
Call uidoc.FieldSetText("Summary ,, l m ') 
End If 
End Sub 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 

JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 



Other 

03/29/1999 01:18:30 PM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"Other 
No 

proj_descript 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

text_other 

Rich Text 
[Not Assigned] 
Editable 
No 

Disabled 

No 

No 



ProsCopyright 

07/28/1999 10:03:30 AM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsCopyright" 



is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Input Translation Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section- 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Number Format: 
Percentage (value * 100)%: 
Parentheses on Negative Numbers: 
Punctuated at Thousands: 
Help Description: 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

serial_number 
app_type 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; - : 
"(Keywords)"; 11); 
No 

Disabled 
No 

@lf(app_type = "Group Daily 
Newspaper"; "G/DN"; appjype 
= "Group Periodicals"; "GR/CP"; 
appjype = "Performing Arts"; 
"PA"; appjype = "Renewal"; 
"RE"; appjype = "Serial"; "SE"; 
appjype = "Sound 
Recordings"; "SR"; appjype = 
"Textual"; TX; appjype = 
"Visual Arts"; "VA"; appjype); 
No 

related_sn 
Text 

(Serial Numbers) 

Editable 

No 

Disabled 
No . 
No 

related_matters 

Number 

General 

No 

No 

No 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

author_cw 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

appearance_counsel 

Keywords 
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Help Description: 
Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Formula: 
Is Scripted: 
Field: 

Datatype: 

Help Description: / 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



[Not Assigned] 

Editable 

Standard 

Yes 

No 

Disabled 

No 

No 

owner_cw 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

transfer_cw 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



Pros Patent 

07/28/1999 10:03:30 AM 

Yes 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsPatent" 
No 

clients_billing 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; clients_billing; 

@GetDocField($Ref; 

"clientsjalling")); 
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Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type:- 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Default Value Formula: 



Is Scripted: 
Field: 

Datatype: 

Input Multi-Value Separators): 
Display Multi-Value Separator: 
Help Description: 
Field Type: 

Keyword User Interface: 



No 

inventor 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; inventor; 

@GetDocField($Ref; 

"inventor)); 

No 

serial_number 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; 

seriaLnumber; 

@GetDocField($Ref; 

"seriaLnumber")); 
No 

related_matter_no 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@lsNewDoc; 

related_matterjio; 

@GetDocField($Ref; 

"related_matter_no")); 

No 

pofa_fa 

Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 

@lf(@IsNewDoc; pofa_fa; 

@GetDocField($Ref; 

"pofaja")); 

No 

appjtype 

Keywords 

Comma 

Comma 

[Not Assigned] 

Editable 

Standard 



Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Hotspot 

Type: 

Caption: 

Formula: 



Field: 

Datatype: 

Help Description: * 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 



Yes 

. ©DbColumnC; : ""; 
"(Keywords)"; 13); 
No 

Disabled 

No 

No 

related_apps 
Text 

[Not Assigned] 

Editable 

No 

Disabled 
No 
No 
PoA 

Button 
Patent Detail 

@DialogBox("(Status - Patent)"; 
[AutoVertFit] : [AutoHorzFit] : 
[NoNewFields]; "Name Fields"); 
filing_date 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

term_date 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

why-term 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

maint 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 
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JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 

Name: 

Last Modification: 
Include in Insert Subform list: 
Include in New Form dialog: 
Subcomponents: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Formula: 

Is Scripted: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Keyword User Interface: 
Allow Values Not In List: 
Allowable Keywords Formula: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Shared Field Reference: 
Field: 

Datatype: 

Help Description: 
. Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Hotspot 
Type: 
Caption: 
Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 



ProsTM 

07/28/1999 10:03:31 AM 

No 

No 

subform 

Text 

[Not Assigned] 

Computed 

No 

Disabled 
No 

"ProsTM" 
No 

serial_number 
tm_app_type 

Keywords 
[Not Assigned] 
Editable 
Standard 
Yes 

@DbColumn(""; M " : ""; 
"(Keywords)"; 12); 
No 

Disabled 

No 

No 

related_apps 

related_matter_no 

tm 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

Button 

Attach Image 

@Command([EditNextF 
ield]);@Command([EditlnsertFil 
eAttachment]); 
mark 
Rich Text 
[Not Assigned] 
Editable 
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Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 
Help Description- 
Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
Shared Field Reference: 
Hotspot 

Type: 

Caption: 

Formula: 



Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 



No 

Disabled 

No 

No 

goods_serv 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

classes 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

owner 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

pofa_fa 
Button 

Trademark Detail 

@DialogBox("(Status - 

Trademark)"; [AutoVertFit] : 

[AutoHorzFit] : [NoNewFields]; 

"Name Fields"); 

ftrst_use 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

i_state_use 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

filing_date 

Text 
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Help Description: 
Field Type; 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 
Is Scripted: 
Field: 

Datatype: 

Help Description: 

Field Type: 

Sign When Mailing/In Section: 
Encryption: 

Update Requires Editor Access: 

Is Scripted: 
JavaScript & HTML Code: 

[None] 
LotusScript Code: 

[None] 



Navigator Information: 

Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 



[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

termination 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

term_date 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

how_term 

Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 

renewal 
Text 

[Not Assigned] 

Editable 

No 

Disabled 

No 

No 



NewRAByEvent 

03/29/1999 03:06:57 PM 

[Not Assigned] 

Yes 

4 

No 

Yes 
Yes 



Initial View or Folder: 
Background Color: 
Subcomponents: 
GraphicButton 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 

Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 



By Resp Attorney\Event 
RGB Value: 0 0 0 



GraphicButton2 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Textl 

Client View (by Name)Client 

View (by Number)Responsible 

Attorney ViewsTask Views View 

CalendarReports 

Yes 

Yes 

Yes 

No 

No 

Textl 1 

Exit DatabaseComment/Trouble 

ReportDatabase Administration 

Yes 

Yes 

Yes 

No 

No 

Textl 2 

By Matter 

Yes 

Yes 

Yes 

No 

No 

Textl 3 

By Project 

Yes 

Yes 

Yes 

No 

No 

Textl 4 

By Open Task 

Yes 

Yes 

Yes 



371 



Highlight when touched: 
Highlight when clicked: 
Text 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: " 
Highlight when touched: 
Highlight when clicked: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
t Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
. Caption: 
Visible: 
Selectable: 

Lock size and position: 



No 
No 

Text15 

By Open Event 

Yes 

Yes 

Yes 

No 

No 

Text16 

By Open Task & Event 

Yes 

Yes 

Yes 

No 

No 

HotspotRectangle2 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewClientNameByName 

HotspotRectangle3 

[None Assigned] 

Yes 

Yes 

Yes 

No . 

No 

Open Navigator: 
NewClient#ByName 

HotspotRectangle4 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewRAByProject 

HotspotRectangleS 

[None Assigned] 

Yes 

Yes 

No 
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Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 



No 
No 

Open Navigator: 
NewRAByMatter 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: NewRAByTask 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Open Navigator: 
NewTaskbyClient 

HotspotRectangle8 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Open Navigator: 
NewCalByEvents 

HotspotRectangle9 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectanglelO 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 
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Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 0 To 2 ) As String 
recipients( 0 ) = "thomsonfgqsmi.com" 
recipients( 1 ) = "hoagland@qsmi.com" 
recipients( 2 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DiaiogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maiIdoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

Yes 

No 

No 



Open Navigator: Admin Nav 



HotspotRectangle11 
[None Assigned] 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Yes 

Yes 

No 

No 

No 



Open Navigator: ReportNav 



HotspotRectangle12 
[None Assigned] 



HotspotRectangle 
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Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder: 
Background Color: 
Subcomponents: 
GraphicButton 

Name: 

Caption: 

Visible: 

Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
GraphicButton 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



Text 

Name: 
Caption: 
Visible: 
Selectable: 



HotspotRectangle13 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewRAByEventTask 

Admin Nav 

03/29/1999 03:06:58 PM 

[Not Assigned] 

No 

0 

No 

Yes 
Yes 

All Docs\System Docs 
RGB Value: 0 0 0 



GraphicButtonS 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No . 

GraphicButton4 

[None Assigned] 

Yes 

Yes 

No 

No 

No 

Text18 

Exit Database 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

Jext19 

Comment/Trouble Report 

Yes 

Yes 
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Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Button 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Dim view As Notesview 

Dim doc As NotesDocument 

Dim nn As NotesName 

Set db=session.CurrentDatabase 

Set view=db.GetView("(Routing Profile)") 

Set doc=view.GetFirstDocument 

flag= workspace.DialogBoxC'Routing", True, True, 



Yes 

No 

No 

Text20. 

Database Administration 

Yes 

Yes 

Yes 

No 

No 

Text21 

DatabaseAdministration 
Yes 
Yes 
Yes 
No 
No 

Buttons 

Edit Routing Profiles 

Yes 

Yes 

Yes 

No 

Yes 



False, False, False, False, "Default 
Routing Profile", doc) 



If flag=True Then 

'Set up the array and the counter 
Dim SALastNameFirst 0 As String 
inc=0 

'First let's sort the resp atty field 

Set iChoices=doc.GetFirstltem("ProAtty") 

Gosub Sort 

iChoices. Remove 

Set iChoices = New Notesltem (doc, "ProAtty", saChoices) 
iChoices.lsSummary = True 
doc.save True, True 

'Second we process the new client routing field the same way as the resp atty field 
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inc=0 

Set iChoices=doc.GetFirstltem("NewClient_Routing") 

GosubSort 

iChoices.Remove 

Set iChoices = New Notesltem(doc, "NewClient_Routing M , saChoices) 

iChoices.lsSummary=True 

doc.save True, True 
End If 
Exit Sub 

This is the sorting routine 
* Sort: 

saChoices=iChoices.values 

Redim SALastNameFirst (Ubound (saChoices)) 

Counter=0 

Forall temp In saChoices 

Set nn = New NotesName(temp) 

vaLast=Evaluate({@RightBack("} + nn.Common + {";" ")}) 

LastFirst$=vaLast(0) + " *" + nn.Common 

saLastNameFirst (counter)=LastFirst$ 

counter=counter+1 
End Forall 

Call qsortS(SALastNameFirst, 0, Ubound(SALastNameFirst)) 
Redim saChoices (Ubound (SALastNameFirst)) ; 
counter=0 

Forall temp2 In saLastNameFirst 

vaName=Evaluate({@RightBackO + temp2 + {";"*")}) 

FirstLast$=vaName(0) 

saChoices(counter)=FirstLast$ 

counter=counter+1 
End Forall 
Return 
End Sub 

Button 

Name: Button7 
Ca P tion: Edit Project Keywords 

Visible: Yes 
Selectable: Yes 
Lock size and position: Yes 
Highlight when touched: No 
Highlight when clicked: Yes 
LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 

Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Dim view As Notesview 

Dim doc As NotesDocument 

Dim nn As NotesName 

Set db=session.CurrentDatabase 

Set view=db.GetVjew( n (Keywords)") 

Set doc=view.GetFirstDocument 

Dim uidoc As NotesUIDocument 



Set uidoc = workspace.CurrentDocument 
Set db=session.CurrentDatabase 
doc.Hide="EventKeyNo" 
flag= workspace.DialogBox("EvProjKeys", True 

If flag=True Then 

doc.Hide="" 

doc.save Tme, True 
End If 
End Sub 

Button 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 

Highlight when touched: 

Highlight when clicked: 

Highlight when touched: 

Highlight when clicked: 

LotusScript Code: 
Use "SortingLibrary" 
Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim Session As New NotesSession 
Dim view As Notesview 
Dim doc As NotesDocument 
Dim nn As NotesName 
Set db=session.CurrentDatabase 
Set view=db.GetView("(Keywords)") 
Set doc=view.GetFirstDocument 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Set db=session.CurrentDatabase 
doc.Hide^'ProjKeyNo" 

flag= workspace.DialogBox("EvProjKeys" f True, 

If f1ag=True Then 
doc.Hide= M " 
doc.save True, True 
End If 
End Sub 
Rectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 



, True, False, False, False, False, 
"Keyword Profiles", doc) 



Button8 

Edit Event Keywords 

Yes 

Yes 

Yes 

No 

No 

No 

Yes 



True, False, False, False, False, 
"Keyword Profiles", doc) 
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Call rtibody.AddNewLine (1) 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesU I Workspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = ,, thomson@qsmi.com M 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maiIdoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildocGetFirstltemfEditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody. AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" - 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 
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Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 

Agenda Trouble 
Report", Maildoc) 

If Flag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 
Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt= ,,M 
maildoc.Form="Memo ,, 
Call maildoc.Send( False ) 
End irdialogbox for message to default addresses. 
End Sub 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc. Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)" f True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine2 
End With 'rtibody 

FIag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
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End If'dialogbox formessage to default addresses. 
End Sub 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject= M IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com M 
recipients( 2 ) = "hoagland@qsmi.com' , 
recipients( 3 ) = "Patricia L. Mansuy" 
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maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 

Agenda Trouble 
Report", Maildoc) 

lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 
Forall Text In item.values 

Call rtibody.AppendTexl (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt="" 
maildoc.Form-'Memo" 
Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 
End Sub 
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maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 
Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody .AddNewLine (1) 
End Forall 
maildoc.EditTxt="" 
maildoc.Form="Memo" 
Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 
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Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form="MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
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Dim maildoc As NotesDocument 

Set maildoc = New NotesDocument(db) 
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maildoc.Subject="IP Agenda Trouble Report" 
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recipients( 1 ) = "thomson@qsmi.com" 

recipients( 2 ) = "hoagland@qsmi.com" 

recipients( 3 ) = "Patricia L. Mansuy" 

maildoc.SendTo= recipients 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
WithrtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
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Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt="" 
maildoc.Form="Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
End Sub 
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maildoc.Form-'MailNot" 
maildoc.Subject-'IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmixom" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maiIdoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MaiiNot)" l True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maiidoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody .AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form-'Memo" 

Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText •This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With ttibody 

Flag=workspace.pialogBox("(MailNot)" f True, True, False, False, False, False, "IP 



lfFlag=True Then 
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End Ifdialogbox for message to default addresses. 
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Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject= u IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With Ytibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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Dim db As NotesDatabase 

Dim workspace As New NotesUIWorkspace 

Dim Session As New NotesSession 

Set db=session.CurrentDatabase 

Dim doc As NotesDocument 

Dim maildoc As NotesDocument 

Set maildoc = New NotesDocument(db) 

maildoc.Form="MailNot" 

maildoc.Subject- 'IP Agenda Trouble Report" 

Dim recipients( 1 To 3 ) As String 

recipients( 1 ) = "thomson@qsmi.com" 

recipients( 2 ) = ''hoagland@qsmi.com" 

recipients( 3 ) = "Patricia L. Mansuy" 

maildoc.SendTo= recipients 

'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody - 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 

.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBoxr(MailNot)", True, True, False, False, False, False, "IP 
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437 



If Fiag=True Then 

Set item= maildoc.GetFirstltem( M EditTxt n ) 
Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 
End Forall 
maildoc.EditTxt= m ' 
maildoc.Form-'Memo" 
Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
End Sub 
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LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maiidoc As NotesDocument 
Set maiidoc = New NotesDocument(db) 
maildoc.Form-'MailNot" 
maildoc.Subject="IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 
recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = "hoagland@qsmi.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maiidoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildocGetFirstltemfEditTxt") 

Forall Text In item.values 

Call rtibody.AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maiidoc.EditTxt="" 

maildoc.Form="Memo" 

Call maildoc.Send( False ) 
End If 'dialogbox for message to default addresses. 
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HotspotRectangle9 
[None Assigned] 



441 



Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 
HotspotRectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

Name: 

Last Modification: 
Comment: 
Snap to Grid: 
Grid Size: 
Show Grid: 

Auto adjust panes at runtime: 
Web browser compatible: 
Initial View or Folder 
Background Color: 
Subcomponents: 
GraphicButton 

Name: 

Caption: 

Visible: 

Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
GraphicButton 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 



No 
No 

Open Navigator: Admin Nav 

HotspotRectanglel 0 

[None Assigned] 
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Yes 

Yes 

No 

No 

Open Navigator: ReportNav 

HotspotRectanglel 1 

[None Assigned] 
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No 
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Open Navigator: NewTaskbyRA 
ReportNav 
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[Not Assigned] 
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Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 

Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Rectangle 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Text 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Button 
Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Highlight when touched: 
Highlight when clicked: 
LotusScript Code: 
Use "SortingLibrary" 
Dim CR As Variant 
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Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSesslon 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentCollection 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
Dim ReportDoc As New NotesDocument(db) 
Dim DBox As New NotesDocument(db) 
' Dim rtStyle As NotesRichTextStyle 
'Set rtStyle=session.CreateRichTextStyle 
'rtStyle.NotesFont=FONT_ROMAN 
, rtStyle.FontSize=10 

Flag=workspace.DialogBox( ,, (ReportCreator)" f True, True, False, False, False, False, 

,M, ,DBox) 

lfFlag=True Then 
'new report code 

Set iteml =DBox.GetFirstltem("client") 

Set item2=DBox.GetFiretltem("ReportDate") 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set CR « CreateObject("Crystal.CrystalReport") 

CR.ReportFileName = "c:\program files\csrsreports\clientMatter.rpt" 

RDate$="As Of: "+Rdate$ 

cr.ParameterFields(O) = "AsOfDate;"+rdate$+";TRUE" 
cr.Connect = "dsn=IPAgenda" 

cr.windowtitle = "Collier, Shannon, Rill & Scott Client/Matter Report" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
cr.windowshowsearchbtn = True 

cr.SelectionFormula = "{AIIDocsForReporting.ClientJMame} = m +client$ + '"" 
enaction = 1 
%REM 

1 old report code follows 

Set iteml =DBox.GetFirstltem("clienr) 

Set item2=DBox.GetFirstltem("ReportDate") 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set ReportDoc = db.CreateDocument 

ReportDoc.client=client$ 

ReportDoc.ReportDate=RDate$ 

ReportDoc.Form = "(ClientMatterReport)" 

ReportDoc.FormName- 'Client Matter Report" 

ReportDoc.RptType-'Active Matters" 

ReportDoc.RptName="Client Matter Report" 

Set view = db.GetView( "(ReportMatter)" ) 

Set dc = view.GetAI!DocumentsByKey(client$, True) 
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Set doc=dc.GetFirstDocument 
Gosub GetData 

ReportDoc.BodyName=MatterName$ 
ReportDoc.BMat=MatterNum$ 
ReportDoc.BDate=MatterDate$ 
ReportDoc.BodyDes=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl =MatterName$ 
ReportDoc.BMaM =MatterNum$ 
ReportDoc.BDate_1 =MatterDate$ 
ReportDoc.BodyDes_1 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_2=MatterName$ 
ReportDoc.BMat_2=MatterNum$ 
ReportDoc.BDate_2=MatterDate$ 
ReportDoc.BodyDes_2=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_3=MatterName$ 
ReportDoc.BMat_3=MatterNum$ 
ReportDoc.BDate_3=MatterDate$ 
ReportDoc.BodyDes_3=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_4=MatterName$ 
ReportDoc.BMat_4=MatterNum$ 
ReportDoc.BDate_4=MatterDate$ 
ReportDoc.BodyDes_4=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_5=MatterName$ 
ReportDoc.BMat_5=MatterNum$ 
ReportDoc.BDate_5=MatterDate$ 
ReportDoc.BodyDes_5=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_6=MatterName$ 
ReportDoc.BMat_6=MatterNum$ 
ReportDoc.BDate_6==MatterDate$ 
ReportDoc.BodyDes_6=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_7=MatterName$ 
ReportDoc.BMat_7=MatterNum$ 
ReportDocBDate_7=MatterDate$ ' 
ReportDoc.BodyDes_7=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_8=MatterName$ 
ReportDoc.BMat_8=MatterNum$ 
ReportDoc.BDate_8=MatterDate$ 
ReportDoc.BodyDesJ$=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_9=MatterName$ 
ReportDoc.BMat_9=MatterNum$ 
ReportDoc.BDate_9=MatterDate$ 
ReportDoc.BodyDes_9=MatterDes$ 
Set doc = dc.GetNextDocument(doc)^ 
Gosub GetData 

ReportDoc.BodyName_1 0=MatterName$ 
ReportDoc.BMaM 0=MatterNum$ 
ReportDoc.BDate_1 0=MatterDate$ 
ReportDoc.BodyDes_1 0=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 1 =MatterName$ 
ReportDoc.BMaM 1=MatterNum$ 
ReportDoc.BDate_1 1 =MatterDate$ 
ReportDoc.BodyDes_1 1 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 2=MatterName$ 
ReportDoc.BMaM 2=MatterNum$ 
ReportDoc.BDate_12=MatterDate$ 
ReportDoc.BodyDes_1 2=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 3=MatterName$ 
ReportDoc.BMaM 3=MatterNum$ 
ReportDoc.BDate_1 3=MatterDate$ 
ReportDoc.BodyDes_1 3=MatterDes$ 
Set doc= dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 4=MatterName$ 
ReportDoc.BMat_1 4=MatterNum$ 
ReportDoc.BDate_1 4=MatterDate$ 
ReportDoc.BodyDes_1 4=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 5=MatterName$ 
ReportDoc.BMaM 5=MatterNum$ 
ReportDoc.BDate_1 5=MatterDate$ 
ReportDoc.BodyDes_1 5=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 6=MatterName$ 
ReportDoc.BMaM 6=MatterNum$ 
ReportDoc.BDate_1 6=MatterDate$ 
ReportDoc.BodyDes_1 6=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 7=MatterName$ 
ReportDoc.BMat_1 7=MatterNum$ 
ReportDoc.BDatej! 7=MatterDate$ 
ReportDoc.BodyDesjl 7=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_1 8=MatterName$ 
ReportDoc.BMaM 8=MatterNum$ 
ReportDoc.BDateJI 8=MatterDate$ 
ReportDoc.BodyDesjl 8=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNamejl 9=MatterName$ 
ReportDoc.BMaM 9=MatterNum$ 
ReportDoc.BodyDate_1 9=MatterDate$ 
ReportDoc.BodyDesjI 9=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_20=MatterName$ 
ReportDoc.BMat_20=MatterNum$ 
ReportDoc.BDate_20=MatterDate$ 
ReportDoc.BodyDes_20=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_21 =MatterName$ 
ReportDoc.BMat_21 =MatterNum$ 
ReportDoc.BDate_21 =MatterDate$ 
ReportDoc.BodyDes_21 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_21 =MatterName$ 
ReportDoc.BMat_21 =MatterNum$ 
ReportDoc.BDate_21 =MatterDate$ 
ReportDoc.BodyDes_21 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_22=MatterName$ 
ReportDoc.BMat_22=MatterNum$ 
ReportDoc.BDate_22=MatterDate$ 
ReportDoc.BodyDes_22=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_23=MatterName$ 
ReportDoc.BMat_23=MatterNum$ 
ReportDoc.BDate_23=MatterDate$ 
ReportDoc.BodyDes_23=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_24=MatterName$ 
ReportDoc.BMat_24=MatterNum$ 
ReportDoc.BDate_24=MatterDate$ 
ReportDoc.BodyDes_24=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName^25=MatterName$ 
ReportDoc.BMat_25=MatterNum$ 
ReportDoc.BDate_25=MatterDate$ 
ReportDoc.BodyDes_25=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_26=MatterName$ 
ReportDoc.BMat_26==MatterNum$ 
ReportDoc.BDate_26=MatterDate$ 
ReportDoc.BodyDes_26=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_27=MatterName$ 
ReportDoc.BMat_27=MatterNum$ 
ReportDoc.BDate_27=MatterDate$ 
ReportDoc.BodyDes_27=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNameJ28=MatterName$ 
ReportDoc.BMat_28=MatterNum$ 
ReportDoc.BDate_28=MatterDate$ 
ReportDoc.BodyDes_28=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_29=MatterName$ 
ReportDoc.BMat_29=MatterNum$ 
ReportDoc.BDate_29=MatterDate$ 
ReportDoc.BodyDes_29=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_30=MatterName$ 
ReportDoc.BMat_30=MatterNum$ 
ReportDoc.BDate_30=MatterDate$ 
ReportDoc.BodyDes_30=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyNameJ31 =MatterName$ 
ReportDoc.BMat_31 =MatterNum$ 
ReportDoc.BDate_31 =MatterDate$ 
ReportDoc.BodyDes_31 =MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_32=MatterName$ 
ReportDoc.BMat_32=MatterNum$ 
ReportDoc.BDate_32=MatterDate$ 
ReportDoc.BodyDes_32=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_33=MatterName$ 
ReportDoc.BMat_33=MatterNum$ 
ReportDoc.BDate_33=MatterDate$ 
ReportDoc.BodyDes_33=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 

ReportDoc.BodyName_34=MatterName$ 
ReportDoc.BMatJ34=MatterNum$ 
ReportDoc.BDate_34=MatterDate$ 
ReportDoc.BodyDes_34=MatterDes$ 



Set doc = dc.GetNextDocument(doc) 
GosubGetData 

ReportDoc.BodyName_35=MatterName$ 
ReportDoc.BMat_35=MatterNum$ 
ReportDoc.BDate_35=MatterDate$ 
ReportDoc.BodyDes_35=MatterDes$ 
Set doc = dc.GetNextDocument(doc) 
Gosub GetData 
GetData: 

If Not (doc Is Nothing) Then 

Set item3=doc.GetFirstltemC , Matter_Name") 

Set item4=doc.GetFirstltem( ,, Matter_No") 

Set item5=doc.GetFirstltem("cre_date") 

Set item6=doc.GetFirstltem( t, description") 

MatterName$=item3.values(0) 

MatterNum$=item4.values(0) 

MatterDate$=Lett$(item5.values(0),8) 

MatterDes$=item6.values(0) 

Return 
Else 

Goto bailout 
End If 
bailout: 

Call ReportDoc.save( True, False) 

Set uidoc=workspace.EditDocument(False, ReportDoc, False) 
%END REM 

End If 
End Sub 

Button 



Name: 


ButtonIO 


Caption: 


Status Table Report 


Visible: 


Yes 


Selectable: 


Yes 


Lock size and position: 


Yes 


Highlight when touched: 


No 


Highlight when clicked: 


No 


Highlight when touched: 


No 


Highlight when clicked: 


Yes 


LotusScript Code: 




Use "SortingLibrary" 




Dim CR As Variant 





Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSession 
Dim workspace As New NotesU I Workspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace.CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentCollection 
Dim view As NotesView 
Dim iteml As Notesltem 



Dimitem2As Notesltem 

Dim ReportDoc As New NotesDocument(db) 

Dim DBox As New NotesDocument(db) 

Flag=workspace.DialogBox("(ReportCreator)", True, True, False, False, False, False, 

,n, ,DBox) 

lfFlag=True Then 
'new report code 

Set iteml =DBox.GetFirstltem("client") 

Set item2=DBox.GetFirstltem( u ReportDate") 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set CR = CreateObject("Crystal.CrystalReport") 

CR.ReportFileName = "c:\program files\csrsreports\StatusTable.rpt" 

RDate$="As Of: "+Rdate$ 

cr.ParameterFields(O) = "AsOfDate;"+rdate$+";TRUE" 
cr.ParameterFields(l) = "Tit!e;"+client$+";TRUE" 
cr.Connect = "dsn=IPAgenda ,f 

cr.windowtitle = "Collier, Shannon, Rill & Scott Status Table" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
cr.windowshowsearchbtn = True 

cr.SelectionFormula = "{AILDocs_ForReportingStatusTable.Client_Name} = "' 

+client$ + ,,,M 

enaction = 1 
%REM 
%END REM 

End If 
End Sub 

Button 

Name:. Button11 

Caption: Resp. Attorney Report 

Visible: Yes 

Selectable: Yes 

Lock size and position: Yes 

Highlight when touched: No 

Highlight when clicked: Yes 

LotusScript Code: 

Use "SortingLibrary" 

Dim CR As Variant 

Sub Click(Source As Navigator) 

This Routine produces a report of all matters for a specific client 
Dim session As New NotesSession 
Dim workspace As New NotesUIWorkspace 
Dim uidoc As NotesUIDocument 
Set uidoc = workspace. CurrentDocument 
Dim db As NotesDatabase 
Set db= session.CurrentDatabase 
Dim doc As NotesDocument 
Dim dc As NotesDocumentColIection 
Dim view As NotesView 
Dim iteml As Notesltem 
Dimitem2As Notesltem 
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Dim ReportDoc As New NotesDocument(db) 
Dim DBox As New NotesDocument(db) 

Flag=workspace.DialogBox("(ReportCreatorRespAtty)", True, True, False, False, 



lfFlag=True Then 
'new report code 

Set item1=DBox.GetFirstltem("clienO 

Set item2=DBox.GetFirstltem("ReportDate") 

client$=item1 .values(O) 

RDate$=item2.values(0) 

Set CR = CreateObjectfCrystaLCrystaiReport") 

CR.ReportFileName = "c:\program files\csrsreports\RespAtty.rpt" 

RDate$="As Of: M +Rdate$ 

cr.ParameterFields(O) = ,, AsOfDate;"+rdate$+ H ;TRUE M 
cr.Connect = "dsn=IPAgenda" 

cr.windowtitle = "Collier, Shannon, Rill & Scott Responsible Attorney Report" 
cr.windowallowdrilldown = True 
cr.WindowState= 2 
cr.windowshowprintsetupbtn = True 
cr.windowshowsearchbtn = True 

cr.SelectionFormula = "{AII_Docs_ForReportingRespAtty._7} = m +client$ + 
enaction = 1 
End If 



False, False, m, ,DBox) 



End Sub 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 



HotspotRectangle2 
[None Assigned] 
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HotspotRectangle 
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HotspotRectangle3 
[None Assigned] 
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Highlight when touched: 
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Open Navigator: 
NewRAByMatter 



HotspotRectangle4 
[None Assigned] 
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Hots pot Rectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Simple Action: 

Hots pot Rectang le 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 
Highlight when touched: 
Highlight when clicked: 
Formula: 



HotspotRectangle 

Name: 
Caption: 
Visible: 
Selectable: 

Lock size and position: 

Highlight when touched: 

Highlight when clicked: 

Highlight when touched: 

Highlight when clicked: 

LotusScript Code: 

Sub Click(Source As Navigator) 
Dim db As NotesDatabase 
Dim workspace As New NotesUIWorkspace 
Dim Session As New NotesSession 
Set db=session.CurrentDatabase 
Dim doc As NotesDocument 
Dim maildoc As NotesDocument 
Set maildoc = New NotesDocument(db) 
maildoc.Form-'MailNof 
maildoc.Subject= M IP Agenda Trouble Report" 
Dim recipients( 1 To 3 ) As String 



HotspotRectangle5 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewTaskbyClient 

HotspotRectangle6 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

Open Navigator: 
NewCalByEvents 

HotspotRectangle7 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

@Command([FileClose 
Window]); 

HotspotRectanglefr 

[None Assigned] 

Yes 

Yes 

Yes 

No 

No 

No 

No 



452 



recipients( 1 ) = "thomson@qsmi.com" 
recipients( 2 ) = n hoagland@qsnni.com" 
recipients( 3 ) = "Patricia L. Mansuy" 
maildoc.SendTo= recipients 
'Start to compile the body field 

Set rtiBody = New NotesRichTextltem (maildoc, "Body") 
With rtiBody 

.AppendText 'This TR was submitted by: " + Session.CommonUserName 
.AddNewLine 2 
End With 'rtibody 

Flag=workspace.DialogBox("(MailNot)", True, True, False, False, False, False, "IP 



lfFlag=True Then 

Set item= maildoc.GetFirstltem("EditTxt") 

Forall Text In item.values 

Call rtibody .AppendText (text) 
Call rtibody.AddNewLine (1) 

End Forall 

maildoc.EditTxt="" 

maildoc.Form-'Memo" 

Call maildoc.Send( False ) 
End If'dialogbox for message to default addresses. 



Agenda Trouble 
Report",Maildoc) 



End Sub 
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HotspotRectangle9 
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Agent Information 

Name: 



Change Project Type 
(Developers ONLY) 

03/22/1999 09:16:59 AM 

[Not Assigned] 

Run via menu command 

Update existing document when 

run 

Run on selected documents 
subF := 

@Prompt([OKCANCELLIST]; 
"Project"; "Select a Value for 
this Field."; "C&A"; "ProsPatent" 
: "ProsCopyright" : "ProsTM" : 
"Litigation" : "Other");subT := 
@lf(subF = "C&A"; "Counseling 
and Advice"; @lf(subF = 
"ProsPatent"; "Prosecution: 



Last Modification: 
Comment: 
Run Options: 
Operation: 



Acts On: 
Formula: 
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Name: 



Last Modification: 

Comment: 

Shared Agent: 

Type: 

State: 

Trigger: 

Acts On: 



Patent"; @If(subF = 
"ProsCopyright"; "Prosecution: 
Copyright"; @lf(subF = 
"ProsTrademark"; "Prosecution: 
Trademark"; @lf(subF = 
"Litigation"; "Litigation"; 
@lf(subF = "Other"; "Other; 
,m ))))));FIELD subform := 
subform;FIELD subtype := 
subtype;FIELD project := 
project;@SetField("subform"; 
subF);@SetField("subtype"; 
subT);@SetField("project"; 
subT);SELECT ©All; 

Delete Orphaned 
Response Documents 

03/29/1999 01:18:18 PM 

[Not Assigned] 

Yes 

LotusScript 
Enabled 

Manually From Actions Menu 
Run once (©Commands may 
be used) 



LotusScript Code: 

Option Public 
Sub Initialize 

Dim session As New NotesSession 

Dim database As New NotesDatabase C^session.CurrentDatabase.FileName) 

Dim doc As NotesDocument 

Dim collection As NotesDocumentCollection 

Dim dt As Variant 

Dim counter As Integer 

Set collection = database.AIIDocuments 

For x = 1 To collection.count 

Set doc = collection. GetNthDocument(x) 
If doc.lsresponse = True Then 

Set parentdoc= database.GetDocumentByUNID (doc.ParentDocumentUNID) 
On Error Resume Next 
If (PareritDoc.Responses Is Nothing) Then 
Call doc.remove (True) 
Counter = Counter + 1 
End If 
End If 
Nextx 

Messagebox (Str(Counter) & " Documents were deleted' 1 ) 
End Sub 



Name: 



Last Modification: 
Comment: 



Fix-Up Data (Developers 
ONLY) 

03/18/1999 02:21:31 PM 
[Not Assigned] 
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Shared Agent: Yes 

Type: LotusScript 

State: Enabled 

Trigger: Manually From Actions Menu 

Acts On: Selected documents 



LotusScript Code: 

Option Public 

Dim session As NotesSession 

Dim db As NotesDatabase 

Dim view As NotesView 

Dim doc As NotesDocument 

Dim myLog As NotesLog 

Dim collection As NotesDocumentCollection 

Dim NewNamesO As String 

Dim hwnd As Long 

Dim i As Long 

Dim j As Long 

Const NPB_STATUSBAR% = 32 

Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long ) 
Declare Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer) As Long 
Declare Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwPos 

As Long) 

Declare Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long, Byval 

dwMax As Long ) 

Declare Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLinel 

As String, Byval pcszLine2 As 
String ) 

Sub Initialize 

Set session = New NotesSession 
Set db = session. CurrentDatabase 

'Get the documents to process that were selected in the view 
Set collection = db.UnprocessedDocuments 
Set doc = collection.GetFirstDocument 
Set myLog=New NotesLogfAgent Run Log") 
hwnd= NEMProgressBegin(NPB_STATUSBAR) 
i=0 

NEMProgressSetBarRange hwnd, collection.count 

'enter the agent proper 

main 

NEMProgressEnd hwnd 
End Sub 
Sub fixAttorney 

This code fixes the responsible attorney field to be consistant as: First Ml. Last 

Atty$=doc.resp_atty(0) 

Set RAItem=doc.GetFirstltem("resp_atty") 

If Atty$ <> ""Then 

Redim NewNames(O) 

NewNames(O) ="" 

Forall x In RAItem.values 
oldName$ =Trim$(x) 

'How long is the name 
SLength&=Len(oldName$) 

Test for the pesky slash and get rid of it 
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lfoldName$ Like "*/*" Then 
'Get the position of the/ 
slashchr$ = V 

positionOfChar& = lnstr(1, oldName$, slashchr$) 
'Get the last name 

LastName$=Trim$(Left(oldName$, positionOfChar&-1)) 
'get the first name 

FirstName$= Trim(Mid(oldName$, positionOfChar&+1 t SLength& )) 
'test the first name for a middle initial 
If FirstName$ Like "* * M Then 
'test for a period after the middle initial 
If FirstNameS Like "V" Then 
'If it already has a period, put it together 

NewName$=FirstName$ & "" & LastName$ 
Else 

'If it don't then put a period after the middle initial and put it together 

NewName$=FirstName$ & ". " & LastName$ 
End If 
Else 

'If no middle initial, put it together 

NewName$= FirstName$ & " " & LastName$ 

Goto loopearly 
End If 

Goto loopearly 
End If 

'Now lets test for a name without a period after the middle initial 
lfoldName$ Like "V" Then 

Exit Sub 
Else 

'get the first name 
spacechr$= M " 

positionOfChar&=lnstr(1 ,oldName$, spacechr$) 

FirstName$=Trim$(Left(oldName$, positionOfChar&-1)) 
'Get the last name 

LastName$=Trim$(Mid(oldName$, positionOfChar&+1 ,SLength&)) 
'check the last name for a space indicating a middle initial 

If LastName$ Like"* *" Then 

'get the middle initial 

Middle$=Trim$(Left(LastName$, 1)) 

'strip the middle initial from last name 
lastLength&=Len(LastName$) 
positionOfChar&=lnstr(2 ,LastName$,spacechr$) 
LastName$=Trim(Mid(LastName$,positionOfChar&+1,lastLength&)) 

'put it together 

newname$=FirstName$ & " " & Middle$ & ". " & LastName$ 
Else 

'If no middle initial just put it together 

newname$=FirstName$ & " " & LastName$ 
End If 
End If 
loopearly: 

If Not(NewNames(0)="") Then 

Redim Preserve NewNames(Ubound( NewNames)+1) 
End If 



NewNames(Ubound(NewNames))=newname$ 
End Forall 

Call RAItem.remove 

Set NewRAItem=New Notesltem(doc, "resp_atty", NewNames) 
NewRAItem.lsSummary = True 
End If 
End Sub 
Sub Main 

'Set up error log 

logTo$=lnputbox$("Who should I send the Error Log to?", "Recipient") 
Call myLog.OpenMailLog(logTo$, "Error Log for Fix-Up Agent") 
Trap errors 
On Error Goto trapErr 
'Lets fix some documents 
Do While Not doc Is Nothing 
i=i+1 

NEMProgressSetBarPos hwnd, i 
'Grab the doc ID for error identification 
doclD$=doc.UniversallD 
'Non-form specific fixup 
doc.PropClose^'Closed" 
If doc.Hasltem("PropClose_1 ") Then 

Set PC1 ltem=doc.GetFirstltem("PropClose_1 ") 

Call PCIItem.Remove 
End If 

If doc.HasltemfRASIG") Then 

Set Sigltem=doc.GetFirstltem("RASIG") 

Call Sig Item. Remove 
End If 

If doc.Hasltem("IPDSIG") Then 

Set Sigltem=doc.GetFirstltem("IPDSIG") 

Call Sig Item. Remove 
End If 

'Form specific fixup 
If doc.Form(0)="Event" Then 
doc.TEDateComplete="" 
doc.TEArchive="no" 
doc.Retire_By="" 
dqc.UnHideEV="no" 
doc.ClosingEV="no" 
doc.Status="Open" 
doc.DateComplete="" 
If doc.Hasltem("DateDue") Then 
If doc.DateDue(O) <> '"' Then 

doc.EventDate = doc.DateDue 
End If 

Set dateltem=doc.GetFirstltem("DateDue") 
Call dateltem. Remove 
End If 
End If 

If doc.Form(0)="Task" Then 
doc.TEDateComplete="" . 
docTEArchive="no" 
doc.RACIosed= M no" 



If doc.Hasltem("$Sig_Untitled_Section_1 ") Then 

Set Section Iteml =doc.GetFirstltem("$Sig_Untitled_Section_1") 

Sectionltem1.lsSigned=False 

Sectionlteml .lsEncrypted=False 

Call Sectionlteml. remove 
End If 

If doc.Hasltem("$SigJJntitled_Section2") Then 

Set Section ltem2=doc.GetFirstltem( ,, $Sig_Untitled_Section2 ,, ) 
Sectionltem2.lsSigned=False 
Sectionltem2.lsEncrypted=False 
Call Sectionltem2.remove 
■ End If 

Set RASigltem=doc.GetFirstltem("RA_Sig") 

RASigltem.lsSigned=False 

Set IPDSigltem=doc.GetFirstltem( ,, IPD_Sig n ) 

IPDSigltem.lsSigned=False 

doc.RA_Sig="" 

doc.lPD_Sig="" 

doc.UnHideRA="no" 

doc.UnHideDM="no" 

doc.DocDateComplete= ,m 

doc.DateComplete-'" 

doc.Status= ,, Open M 

If doc.Hasltem("DateDue M ) Then 

If doc.DateDue(O) <> Then 
doc.TaskDate = doc.DateDue 

End If 

Set dateltem=doc.GetFi^stltem("DateDue ,, ) 
Call dateltem. Remove 
End If 
End If 

f Now lets fix those pesky attorney names 
fixAttorney 

doc.ComputeWithForm True, False 
doc.save True, True 

Set doc=collection.GetNextDocument(doc) 
Loop 

Call myLog.LogAction( "Agent completed, " & i & " documents were processed." ) 
Call myLog.Close 

Msgbox "All Selected Records Processed." 
Exit Sub 

'Handle errors and log them 
trapErr: 

Call myLog.LogError (Err , Error$ & " in document: " & doclD$) 
Resume Next 
End Sub 

Name: Periodic Archive 

Last Modification: 04/20/1 999 02:06:1 4 PM 

Comment: [Not Assigned] 

Shared Agent: Yes 
Type: LotusScript 
State: Enabled 
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Trigger: 
Interval: 

Acts On: 
LotusScript Code: 

YolNCLUDE'lserr.Iss" 

•%INCLUDE "Isxbeerr.Iss" 

Const MAXARCHIVEITEMS = 50 

Dim session As NotesSession 

Dim dbSource As NotesDatabase 

Dim dbArchive As NotesDatabase 

Dim docSource As NotesDocument 

Dim docArchive As NotesDocument 

Dim docLog As NotesDocument 

Dim docProfile As NotesDocument 

Dim viewArchive As NotesView 

Dim dtNow As NotesDateTime 

Dim dtExpired As NotesDateTime 

Dim dtDocument As NotesDateTime 

Dim dtCompare As NotesDateTime 

Dim docsCollection As NotesDocumentCollection 

Dim rtitem As NotesRichTextltem 

Dim item As Notesltem 

Dim rtStyle As NotesRichTextStyle 

Dim nidArrayO As String 

Dim SourcePath As String 

Dim SourceServer As String 

Dim ArchiveServer As String 

Dim ArchivePath As String 

Dim ArchiveLog As String 

Dim IncludeDocLinks As String 

Dim ArchiveExpired As String 

'Dim Archivelnactive As String 

Dim ExpiredLife As Integer 

'Dim DocumentLife As Integer 

Dim nLogltems As Integer 

Dim numDocs As Integer 

Dim numDocsArchived As Integer 

Dim i As Integer 

Dim DoNotRun As Variant 

Dim DocCanBeArchived As Variant 

Dim ArcYesNo As Variant 

Sub Initialize 

'initialize some variables 

Set session = New NotesSession 

Set dbSource = session. CurrentDatabase 

Redim nidArray(5) 

nLogltems = 0 

numDocsArchived = 0 

'call the main entry point 

Main 
End Sub 
Sub Terminate 



Scheduled 

On Schedule More Than Once 
A Day 

All documents in database 
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End Sub 
Sub Main 

'Read the profile document to see what options are enabled and where databases are 

located 

GetProfileSettings 
If DoNotRun Then Exit Sub 
'setup the date/time structures' 

Set dtNow = New NotesDateTimeO 
Set dtExpired = New NotesDateTimeO 
Set dtDocument = New NotesDateTimef") 
Set dtCompare = New NotesDateTimeO'") 
dtNow.SetNow 
dtExpired. SetNow 
dtDocument.SetNow 
dtCompare.SetNow 

If ArchiveExpired = "Yes" Then dtExpired.AdjustDay(ExpiredLife * -1 ) 
•|f Archivelnactive = 'Yes" Then dtDocument.AdjustDay(DocumentLife * -1) 
'open the archive database 
On Error Resume Next 

Set dbArchive = New NotesDatabase(ArchiveServer,ArchivePath) 
If Err = 4060 Then Goto ErrNoDBAccess 
If Not (dbArchive.lsOpen) Then 

Messagebox "Unable to open archive database.",16,"Error" 

Exit Sub 
End If 

'see if we are logging documents, if we are, then create the first one 
If ArchiveLog = 'Yes" Then CreateLogDocument 
'process the documents in the database 

'this finds all documents that needs to be archived, archives them, logs them (if 

necessary), and removes them 
from this database 

ProcessDocuments 

'mark the log documents in terms of x out of y 
If ArchiveLog = 'Yes" Then MarkLogDocuments 
Exit Sub 
ErrNoDBAccess: 

Messagebox 'You do not have access to the archive database. Please contact the 

database manager to have your 
name added to the Access 
Control List.", 0, "Database 
Access Error" 

Exit Sub 
End Sub 

Sub GetProfileSettings 

'reads the profile document 

Set view = dbSource.GetViewC'Archiving") 

key = "Archive Profile" 

Set docProfile = view.GetDocumentByKey(key,False) 
If docProfile Is Nothing Then 

'there is no profile document so exit 

DoNotRun = True 
Elseif docProfile.ArchivePath(O) = "" Then 

'there is no archive database 

Msgbox "You need to specify a location for the archive database.",16,"Error" 
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DoNotRun = True 
Else 

DoNotRun = False 

ArchiveExpired = docProfile.ArchiveExpired(O) 
'Archivelnactive = docProfile.Archivelnactive(O) 
'DocumentLife = docProfile.DocumentLife(O) 
ExpiredLife = docProfile.ExpiredLife(O) 
ArchiveServer = docProfile.ArchiveServer(O) 
ArchivePath = docProfile.ArchivePath(0) 
ArchiveLog = docProfile.ArchiveLog(0) 
IncludeDocLinks = docProfile.lncludeDocLinks(O) 
End If 
End Sub 

Sub CreateLogDocument 

'creates a new log document, incrementing the counter 

Set docLog = New NotesDocument(dbSource) 

Set rtitem = New NotesRichTextltem(docLog, "Body") 

Set rtStyle = session. CreateRichTextStyle 

docLog.Form = "Archive Log" 

dtNow.SetNow 

docLog.ArchiveDate = dtNow.LSLocalTime 
docLog.ProtectFromArchive = 1 
docLog.ExcludeFromView = "D" 
docLog.From = "Archiving" 
docLog. Categories = "(Archive)" 
docLog.ReplaceltemValue "_Viewlcon", 22 
nLogltems = nLogltems + 1 
'see if we need to redim the array 

If nLogltems Mod 6 = 0 Then Redim Preserve nidArray(nLogltems + 4) 
End Sub 

Sub ProcessDocuments 

•get a handle to all of the documents in the database 

Set sourceview = dbSource.GetViewfArchiveDocs") 

Set docsCollection = sourceview.GetAIIDocumentsByKeyC'yes", True) 

If docsColIection.Count =0 Then 

ArchiveLog="No" 
End If 

numDocs = docsColIection.Count 
For i =1 To numDocs 

Set docSource = docsCollection.GetNthDocument(i) 
'see if this document can be archived 
EvaluateDocument 
If DocCanBeArchived Then 
'archive this document 
ArchiveDocument 

If ArchiveLog = 'Yes" Then AddDocumentToLog 
docSource. Remove True 
End If 

'see if we have hit the maximum number of entries in a log document; if so close the 

existing one and create a new 
one 

If (numDocsArchived Mod MAXARCHIVEITEMS = 0) And (numDocsArchived > 0) 

Then 

If ArchiveLog = 'Yes" Then 
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CloseLogDocument 
CreateLogDocument 
End If 
End If 
Next 

'we are done processing all of the documents, close the last log document (if necessary) 
If ArchiveLog = "Yes" Then CloseLogDocument 
End Sub 

Sub EvaluateDocument 

Checks to see if a document should be archived or not 
DocCanBeArchived = False 
'see if this document is protected from archiving 
If docSource.Hasltem("ProtectFromArchive n ) Then 
If docSourceProtectFromArchive(O) = "1" Then 

Exit Sub 
End If 
End If 

'see if we should archive documents that expire 
If ArchiveExpired = "Yes" Then 

If docSource.Hasltem("TEDateComplete") Then 

Set item = docSource.GetFirstltemCTEDateComplete") 
Set dtCompare = item. DateTime Value 
If dtCompare Is Nothing Then 

Set dtCompare = New NotesDateTime("") 
dtCompare. SetNow 
Else 

If dtExpired.TimeDifference(dtCompare) >= 0 Then 
DocCanBeArchived = True 

Exit Sub 1 we exit here so that we don't archive this document again 
Else 

'If there are no documents to archive, we don't want a log 
ArchiveLog="No" 
End If 
End If 
End If 
End If 

'see if we should archive documents that are inactive 
'If Archivelnactive = 'Yes" Then 

'dtCompare. LSLocalTime = docSource.LastAccessed 

'If dtDocument.TimeDifference(dtCompare) >= 0 Then DocCanBeArchived = True 
'End If 
End Sub 

Sub ArchiveDocument 

'copies the source document into the archive database 
%REM 

$Archived and DateArchived might already be present, if this agent failed the last 
time it was run. None of these fields should be on the archived copy, because we 
don't want the archive database to inadvertantly archive these documents (it can 
archive, but it needs to use its own criteria) 
%END REM 

If docSource.Hasltem("$Archived") Then docSource.Removeltem("$Archived") 
If docSource.HasltemfDateArchived") Then docSource.Removeltem("DateArchived") 
If docSource.Hasltem("ExpireDate") Then docSource.Removeltem("ExpireDate") . 
FixReaderNames 
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docSource.Save True, True 

Set docArchive = docSource.CopyToDatabase(dbArchive) 
docSource.DateArchived = dtNow.LSLocalTime 
Call docSource.AppendltemValue("$Archived", True) 
docSource.Save True, True 
numDocsArchived = numDocsArchived + 1 
End Sub 

Sub FixReaderNames 

'if the reader access fields are blank, remove them 
If docSource.Hasltem("Readers") Then 

If docSource.Readers(O) = Then docSource.Removeltem("Readers") 
' End If 

If docSource.Hasltem("DocumentReaders") Then 
If docSource.DocumentReaders(O) = "" Then 

docSource.Removeltem("Docu 
mentReaders") 

End If 
End Sub 

Sub AddDocumentToLog 
'Set the style for the log 
rtStyle.FontSize = 8 
rtStyle.NotesFont = FONTJHELV 

'only called if a document was archived and logging was enabled 
If IncludeDocLinks = 'Yes" Then 

'the user wants a doclink to the new archived document 

Call rtitem.AppendStyle(rtStyle) 

Call rtitem.AppendDocLink(docArchive, "DocLink to Archived Document") 
Callrtitem.AddTab(l) 
End If 

Client$=docSource.Client_Name(0) 
\ If docSource.Form(0) = "Event" Then 
Project$=docSource.Project(0) 
Select Case Project$ 
Case "Prosecution: Patent" 

EventName$=docSource.PatentEvent(0) 
Case "Prosecution: Trademark" 

EventName$=docSource.TrademarkEvent(0) 
Case "Prosecution: Copyright" 

EventName$=docSource.CopyrightEvent(0) 
Case "Litigation" 

EventName$=docSource.LitigationEvent(0) 
Case "Counseling & Advice" 

EventName$=docSource.CounselEvent(0) 
Case "Other 

EventName$=docSource.OtherEvent(0) 
End Select 

Call rtitem.AppendText(" " & "Event - " & Client$ &" - " & EventName$ & " (Retired by 

" & docSource.Retire_by(0) & " 
on " &_ 

Format(docSource.TEDateComplete(0), "Short Date") & ")") 
End If 

If docSource.Form(O) = "Task" Then 

Call rtitem.AppendText(" " & "Task - " & Clients &" - " & docSourceTask(O) & " 

(Closed by " & 
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docSource.RA_Sig(0) & " on " 
& 



Format(docSource.TEDateComplete(0), "Short Date") & ")") 
End If 

Call rtitem.AddNewLine(1) 
End Sub 

Sub CloseLogDocument 

'saves the log document, adds the note id to the array, 

docLog.Save True, True 

nidArray(nLogltems) = docLog.NotelD 
End Sub 

Sub MarkLogDocuments 

'finds all of the log documents just created and marks them in terms of x out of y 
For i = 1 To nLogltems 

Set docLog = dbSource.GetDocumentBylD(nidArray(i)) 
If Not (docLog Is Nothing) Then 

docLog.Subject = "Log Document " &Cstr(i) & "of" & Cstr(nLogltems) & " (" & 



docLog.LogCount = Cstr(i) 
docLog.LogTotal = Cstr(nLogltems) 

docLog.ArchiveTrailer = "Archive log " & Cstr(i) & "of" & Cstr(nLog Items) & " for 

documents on server " & _ 

ArchiveServer & " from " & dbSource.Title & " C & dbSource.FilePath & ") to " & 

dbArchive.Title &_ 

" (" & ArchivePath & ") completed sucessfully on " & _ 

Format(dtNow.LSLocalTime, "Short Date") & " at " & _ 

Format(dtNow.LSLocalTime, "Long Time") & _ 

". Completed or Retired documents are archived after " & ExpiredLife & " days." 



'DocumentLife & " days of inactivity." 
docLog.Save True.True 
Call docLog.CopyToDatabase(dbArchive) 
End If 
Next 
End Sub 

Name: SetTaskDate or 



LotusScript Code: 

Option Public 
Sub Initialize 

Dim session As New NotesSession 

Dim db As NotesDatabase 

Dim collection As NotesDocumentCollection 



Format(docLog.Created, 
"General Date") & ")" 



'All other documents are 
archived after 



Last Modification: 

Comment: 

Shared Agent: 

Type: 

State: 

Trigger: 

Acts On: 



EventDate=DateDue 

03/22/1999 09:17:07 AM 

[Not Assigned] 

Yes 

LotusScript 
Enabled 

Manually From Actions Menu 
Selected documents 
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Dim doc As NotesDocument 
Dim j As Integer 

Set db = session. CurrentDatabase 

Set collection = db.UnprocessedDocuments 

For j = 1 To collection.Count 

Set doc = collection.GetNthDocument( j ) 
If doc.formCOKEvent" Then 
If doc.DateDue(O) <> ,,M Then 
doc.EventDate = doc.DateDue 
Call doc.Save(True, False ) 
End If 
Else 

If doc.form(0)= , Task" Then 
If doc.DateDue(O) <> Then 
doc.TaskDate = doc.DateDue 
Call doc.Save(True, False ) 
End If 
End If 
End If 
Next 
End Sub 



